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VOORWOORD 


Met dit boek wil ik de groeiende groep van MSX-Disk 
gebruikers een aantal programma’s aanbieden, die gebruik 
maken van het MSX-DISK-BASIC 


Verschillende programma’s zoals Kasboek, Bankboek, 
Voorraad, Grafieken bij Kasboek vragen om een aparte 
DATA-schi if. 


Enkele programma’s zoals wiskundehulp en morsetrainer 
kunnen eventueel ook op cassette werken, maar gezien de 
lengte van bijv. Morsetrainer verdient het de voorkeur 
om gebruik te maken van een Disk-drive. 


Veel programma’s maken gebruik van het Grafische scherm. 
Om een afdruk van zo’n scherm op papier te krijgen, heb 
ik twee ”screendump” routines opgenomen. 
De eerste in BASIC (de langzaamste maar het eenvoudigst 
te begrijpen), de tweede in machinetaal (en daardoor 
snel en bovendien flexibel in gebruik). 


Met de BASIC-versie van het ”screendump”-programma en 
het BARCODE programma hoop ik te bereiken dat U leert om 
te gaan met de grafische mogelijkheden van Uw printer. 


Ik hoop dat de programma’s in dit boek U aanspreken en 
dat U er ook wat van opsteekt. Mochten zich problemen 
voordoen, dan bij voorkeur een brief met Uw vragen naar 
de uitgeverij. Rest mij U veel genoegen te wensen met 
dit boek. 


Voor jaar 1987 


de auteur. 


KASBOEK 


Met dit programma kunt u de inkomsten en uitgaven 
bijhouden van geen kleine zaak, een vereniging, een 
school of wat dan ook, Er is ruimte voorzien voor 
tweehonderd boekingen per maand : honderd bij de 
inkomsten, honderd bij de uitgaven. Dat leek ons 
voldoende. 


Het programma is zo geschreven dat het enkel met een 
disk-drive te gebruiken is. Omwille van de eerder 
beperkte geheugen-inhoud van een MSX-computer, wordt zo 
weinig mogelijk in het RAM-geheugen opgeslagen, em wordt 
alle nodige informatie van een diskette gehaald. 


Dat heeft tevens het voordeel, dat er weinig Fout kan 
gaan met het programma en — wat belangrijker is - met de 
gegevens die worden verwerkt. Als u bijvoorbeeld stopt 
met de invoer van gegevens, worden die onmiddellijk op 
schijf gezet. 


Koe werkt u met het programma 7 


Als u het programma hebt ingetypt, en gecontroleerd op 
typfouten, zet u het eerst op schijf. Dat is veilig. 


Druk nu op CFS) (“run”), Als alles goed is, ziet u op 
het scherm een lijstje met zes keuzemogelijkheden. 


Als u het programma voor de eerste keer gebruikt, kiest 
u optie 56 : de bestanden opstarten. Dit is een 
“gevaarlijke” optie, in die zin dat wanneer u dit doet 
met een schijf waarop er al gegevens voor dit programma 
staan, die bestanden allemaal gewist worden. Daarom 
krijgt uv een waarschuwing vooraf, en de mogelijkheid om 
de keuze ongedaan te maken. 


Het opstarten bestaat er in, dat er 24 bestandjes op de 
schijf gezet worden, met daarin enkel het getal O0. 
Daaraan zal later het programma herkennen dat er in die 
bepaalde File nog geen gegevens staan. 


Na het opstarten keert het programma vanzelf terug naar 
het beginscherm. 


Als u wilt controleren of alles goed verlopen is, dan 
kiest u optie 4, Druk CIJ of CUI, en dan CS) en geef nu 
een getal tussen O en 5 in. U zou nu de drie maanden van 
het kwartaal dat u ingaf, op het scherm moeten zien 
verschijnen, gevolgd door de mededeling "Geen gegevens”. 
Na een pauze keect het programma terug naar het 
beginscherm. 


Nu kunt u beginnen met de invoer van gegevens. 


U kiest nu optie 1 of @. Beide opties werken op 
eenzelfde manier. 


Geef de maand op, waarop de gegevens betrekking hebben, 
en druk CREIURNI. De gegevens van die maand worden van 
de schijf gehaald, en in het geheugen gezet, en u kunt 
beginnen invullen of aanvullen. 


Om de scherm-opmaak netjes te houden en vooral om toe te 
laten dat de gegevens chronologisch gesorteerd kunnen 
worden, moet u de datum Cin dit geval enkel het 
dagnummer) altijd met twee cijfers invoeren, dus de 
vijfde dag van de maand wordt “O5”. 


Eventuele typfouten corrigeert u met de teruglooptoets, 
CBS]. Druk CRETURNJ ter afsluiting van de ingave. 


Bij invoer van het bedrag dient u voor ogen te houden 

= dat het altijd om positieve getallen gaat, ook als u 
uitgaven boekt; 

— dat het om bruto bedragen gaat, dus inclusief BTW; 

- dat de bedragen tot op 2 cijfers na de komma worden 
afgerond. 

Dit laatste kunt u zelf regelen door op regel 10 de 

inhoud van U$ te wijzigen. 


Wanneer u in Franken werkt, hoeven er geen cijfers na de 
komma en hebt wu de beschikking over B tekens, 
voorafgegaan door een spatie. U kunt dus bedragen boeken 
tot 99.999,999 Fr of Fl 99.999,99 - meer dan voldoende, 
vonden wij. De spatie hoort in US te staan in verband 
met de tabulering op het scherm en de printer. 


De volgende invoer is het BTW-percentage. Geef dit in 
als een geheel getal, dus niet als een procent : 5% 
wordt ingegeven als "5" en niet als ",05”, 


Het programma splitst het brutobedrag* dat u ingaf in 
BIW-bedrag en netto-bedrag en drukt dit af op het 
scherm, 


Onderaan het scherm verschijnt nu de mededeling "Kies de 
rubriek”. U hebt de keuze tussen vijf rubrieken, dis u 
kunt benoemen zoals u wilt. De hoofdingen van de 
rubrieken zet u op regels 40 en 50. U kiest de rubrieken 
door op de links- en rechts-cursortoetsen te drukken. De 
naam van de rubriek wordt in de vierde kolom op het 
scherm gedrukt. Hebt u de rubriek die u wilde, dan drukt 
u CRETURNJ. 


Bij het benoemen van de rubrieken moet u met een aantal 
zaken rekening houden 


= er zijn maximaal vijf rubrieken voorzien 
= de naam van een rubriek is maximaal 8 tekens lang. 


10 


Kortere namen laat wu voorafgaan door een aantal 
spaties, voldoende om aan 8 te komen. 


—= op regel 40 staa de benamingen voor de rubrieken 
onder 'inkomsten', op regel SO de namen voor de 
uitgaven-rubrieken. 


Nu hebt u nog de mogelijkheid om te corrigeren. 


Stel, u hebt zich vergist in een van de getallen die u 
ingetypt hebt. Druk nu ”n”. 


U ziet nu de cursor weer op dezelfde regel verschijnen, 
met de datum “eronder”. Was de datum Fout, dan typt u de 
Juiste datum, gevolgd door CREIURNJ. Was de datum 
correct, dan drukt u alleen de CRETURNJ-toets in, 


Hetzelfde geldt voor het bedrag, de BTW en de 
rubriek-keuze : CRETURN] drukken behoudt de inhoud. 


Druk nu op CJ bij de vraag “Correct 7". Afhankelijk van 
het aantal boekingen dat u die maand al had gedaan, en 
de datum die u ingaf ziet u nu gedurende korte of 
langere tijd onderaan het scherm de mededeling "Ik 
sorteer”. Dit houdt in dat uv dus de gegevens in een 
willekeurige volgorde kunt ingeven : ze worden na elke 
ingave chronologisch gesorteerd. 


Na het sorteren verschijnt de cursor op de volgende 
regel, klaar om de volgende datum te "ontvangen". U kunt 
nu gewoon doorgaan met invoeren. 


Wilt u stoppen met invoer, dan druk u (enkel wanneer de 
eursor in de “DAG"-kolom staat!!!) alleen CRETURNJ. 


Vooraleer terug te keren naar het beginscherm, worden de 
nieuwe gegevens op de schijf gezet : er kan nu niets 
meer misgaan met het resultaat van uw werk. 


Met optie 3 kunt u een overzicht vragen van een bepaalde 
maand. Daartoe moet u drie gegevens verstrekken : of het 
gaat om inkomsten of uitgaven C[IJ of CUI), of het 
overzicht op het scherm of de printer moet (SJ) of CPJ) 
en over welke maand het gaat Chet nummer van de maand, 
van Ol tot 12). 


Kebt u zich hier vergist, druk dan Funktietoets 8 in, en 
u keert terug naar het beginscherm. Dit geldt ook, 
wanneer de maand wordt gevraagd : druk, vooraleer u 
CRETURN] drukt, op FB en u kunt herbeginnen. 


Bij deze optie zijn er twee mogelijkheden, wat de 
“output” betreft : naar het scherm of de printer. 


Wilt uv een maand-overzicht op papier, zorg er dan voor 
dat de printer klaar staat om af te drukken. Het 
overzicht wordt dan in een keer afgedrukt, 


Op het scherm is het een ander verhaal. HSX-computers 
zijn beperkt tot een schermbreedte van 40 karakters en 
daar kunnen vijf rubrieken plus de rest, niet allemaal 
tegelijk op. Daarom werken we met een venster. Stelt u 
zich voor dat het hele overzicht op een groot vel papier 
staat. Daar bovenop ligt een tweede blad, waarin een 
venster is uitgeknipt, ter grootte van het beeldscherm. 
Met behulp van de cusortoetsen,de CESCJ en de CHOMEJ 
toetsen kunt u nu dat venster over het blad bewegen, in 
de richtingen aangegeven door de pijlen op de 
cursortoetsen, ofwel naar het begin of het einde van de 
tekst. Bedenk wel dat u het venster beweegt, en niet het 
onderliggende blad !! 


Wanneer u met de cursor naar beneden schuift, wanneer er 
meer dan 16 boekingen zijn, dan kijgt u de totalen te 
zien per kolom. Schuift u terug naar boven, dan 
verdwijnen die totalen weer. 


Met de CESCJ-toets brengt u het venster in een keer tot 
rechtsonder het blad. Dat wil zeggen, u ziet de laatste 
16 dagen, het BIW-totaal en de rubrieken 3,4 en 5. Met 
de CHOMEJ- toets brengt u het venster tot linksboven, 
dat wil zeggen dat u de eerste 16 dagen ziet, de 
totaal-rubriek en de rubrieken 1, 2 en 3. 


U keert terug naar het beginscherm met de 
CRETURNI-toets 


Optie 4 geeft een overzicht van een bepaald kwartaal. De 
keuze verloopt zoals voor het maandoverzicht : 1 of U, 5 
of P,‚, en dan het nummer van het kwartaal Cl tot 4). 


De drie maanden van dat kwartaal worden achtereenvolgens 
ingeladen. Wanneer over een bepaalde maand geen gegevens 
beschikbaar zijn, wordt dat gemeld. Dat houdt in, dat u 
ook tussenstanden kunt opvragen, bijvoorbeeld na S of 10 
weken. 


Wanneer u het programma wilt gebruiken om een 
BTW-aangifte in te vullen, dan dient u ervoor te zorgen 
dat u een vaste rubriek aanhoudt per BTW-percentage. Op 
die manier krijgt u totalen per BTW-percentage, en die 
worden opgevraagd door de belastingsdiensten. 


Optie 5 spreekt voor zichzelf. Als u gestopt ben, en u 
wilt weer verder werken, dan hebt u twee mogelijkheden 
ofwel drukt u F5 in Crun) ofwel typt u “CONI” e 
CRETURNI . 
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BOEKING INKOMSTEN 
BOEKING UITGAVEN 
OVERZICHT 4 MAAND 
KWARTAALOVERZICHT 
PROGRAMMA STOPPEN 
BESTAND OPSTARTEN 


CIJFER VAN UW KEUZE IN mm 


Er zijn twee verschillen, naargelang u in guldens of 
Franken wilt boeken. 


Voor 


- op 
- op 


Voor 


- op 
- op 


guldens : 


regel 10 komt : 
regel 20 komt : 


Franken : 


regel 10 komt : 
regel 20 komt : 


vUS=" HERRE HE 


vUE=" HERHEREE 
"DEF FN AFCX) = INTCX+.S5 ) 


in 


“DEF FN AFCX) = INTCX*100 +.5)/100" 


19 REN s*vmnmnnnenennnnnnnnn nennen 


20 REN » od 
30 REM * KASBOEK « 
HO REM * . 


SQ REM *…vsvesveneuven …vannuen. 

60 WIDIHK 4O:CLEAR 10000:DIM INSC100,8),R 
USCB):DEFSNG A-2:DIM SMCB),SKCHI:US=” Ht 
HH HH”: ES=SPACESCHO): KEY OFF : KEYCB)ON:O 
N KEY GOSUB,,,,,,,2160 

70 DEF FN AFCXD=INTCX*100+.5)/100 

80 DEF FN AFSCXO=RIGHTSCSIRSCX),LENCSTRS 
CI-1D 


30 DATA ””,””,"SOFIWARE",” BOEKEN”, "HAR 
DWARE”,” HERSTEL”, "AUTEURSR”, ”” 

109 DATA ””,”"”,"ONKOSTEN”,” _ PRIVE”, ” 
BUREAU”, "SOFTWARE", ” BOEKEN", ”” 


118 DATA "JANUARI", "FEBRUARI", "MAART", ”A 
PRIL”, "MEI", ”JUNI”,” JULI”, "AUGUSTUS", "SE 
PTEMBER”, "OCTOBER", "NOVEMBER", "DECEMBER" 
120 GOTO 2180 

130 REM vennen ee 
140 REM * SORTEREN VAN DE DATA had 
159 REM *emenmnmnnnnnnnnnn..…...nn nnn 
150 IFTL<=1THENRETURN 

170 BG=1:ED=TL-1 

180 SRT=@ 

13@ FOR N=BG TO ED 

200 IF INSCN,1)>INSCN+1,1) THEN FOR M=1T 
08:SWAP INSCN,M), INSCN+1,M):NEXT M:SRT=1 
218 NEXT N:IF SRT=@ THEN RETURN 

228 IF BG=ED THEN RETURN ELSE SWAP ED,BG 
:ED=ED+1 

238 FOR N=BG TO ED STEP-1 

240 IF INSCN,1)<INSCN-1,1) THEN FOR M=1T 
08: SWAP INSCN,M), INSCN-1,M):NEXT M:SRT=1 
25@ NEXT N:IF SRI=@ THEN RETURN 

258 IF BG=ED THEN RETURN ELSE SWAP ED,BG 
:ED=ED-1:G0TO 180 


270 REN *menenvennvenvensenvensnennend 


280 REN * KEUZE VAN DE RUBRIEK hd 
2ID REN *unanvvunanvennnennnvennnnnrnn 


300 LOCATE @,21:PRINT"” KIES 
DE RUBRIEK 
310 IS=INKE Gm) THEN 310 


320 IF ASCCIS)=28 THEN RU=RU-CRU<7) 

330 IF ASCCIS)=23 THEN RU=RU+CRU>2) 

340 IF ASCCIS)=13 THEN LOCATE @,21:PRINT 
ES: RETURN 

350 LOCATE 17,2:PRINT RUSCRUD 

35@ GOIO 310 

370 REN *enneennnennenn nn nennen 

380 REM * ONTVANGSTEN kid 

JI REN vennneveunnvennvennvvnvennnnnn 

400 B5=",IN":RESTORE 90:FOR A=1T08: READ 

RUSCA):NEXT A:RU=3 

410 PRINT" EEN INE INPUT "TAR 
ND: ”;MS 

#20 RESTORE 110:FOR A=1 TO VALCMS) : READ 

MDS:NEXT A 

430 LOCATE 19,0:PRINIMDS;” ";STRINGSC20- 
LENCMDS), "> 

440 MDS=LEFTSCMDS,8)+BS 

450 LOCATE @,10:PRINT"EJ LOADING ";MDS;” 


A) OPEN MDS FOR INPUT AS#1 

47@ INPUI#1,TL:IF TL=@ THEN 520 

480 IF TL=10@ THEN CLOSE#1:GOTO 1900 

430 FOR A=2 TO 8: INPUT#1,SMCAI:NEXT A 
500 FOR A=1 TO TL:FOR B=1 TO B 

518 INPUT#1,INSCA,B):NEXT B,A 

528 CLOSE#1:LOCATE @,10:PRINT ES 

538 LOCATE @,2:PRINT”DAG BEDRAG Bx ”; 
RUSCRUD ; TABC27) ; "BTW”: PRINTSTRINGSC4O, "— 
"JsRB= 

54O BTWS="":TL=TL+1:IF TL=101 THEN 1900 
55@ LOCATE @,RG:PRINT INSCTL,1):LOCATE @ 
‚RG:LINE INPUT INSCIL,1):IFINSCTL,1D="" 
THEN TL=TL-1:GOTO 700 


560 LOCATE 4,RG:PRINT INSCTL,2):LOCATE 4 
‚RG:LINE INPUT INSCIL,2):IN=FN AFCUALCIN 
SCTL,2))): INSCTL,2)=FN AFSCIND: SMC2)=SMC 
2d+IN 

570 LOCATE 14,RG:PRINT BTWS:LOCATE 14,RG 
:LINE INPUT BTWS 

580 NET=FN AFCIN/C1+VALCBTWS$)/100)) 

530 BTW=IN-NET: INSCIL,B)=FN AFSCBTW): SMC 
B)=SMCB) +BTW 

508 LOCATE 17,RG:PRINT USING US;NET 

618 LOCATE 27,RG:PRINT USING US;BTW 

528 GOSUB 300: INSCTL,RUI=FN AFSCNET)D: SMC 
RU)=SMCRUD+NET 


630 LOCATE @,21:PRINT” CORREC 
540 IS=INK Ô ze THEN 64@ 
5659 IS=CHRSCASCCISJAND 223):IF IS<>"J”AN 
DIS<>”N” THEN 640 
569 LOCATE @,21:PRINTES 
678 IF IS="N"” THEN SMCRU)=SMCRUD-NET : SMC 
B)=SMCB)-BTW: SMC2)=SMC2I-IN: INSCTL, RUD=" 
”:;LOCATE @,RG:PRINT E$:GOTO SS5@ 
588 LOCATE @,21:PRINT” IK SORTEER mm: 
GOSUB 140:LOCATE @,21:PRINTES 
56390 RG=RG+1: IF RG<20 THEN 540 
708 LOCATE @,21:PRINT” SAVING ”;MDS;"” 
”": OPEN MDS FOR OUTPUI AS#1 
@ PRINT#1,TL 
720 FOR A=2 TO 8B:PRINT#1,SMCAI:NEXT A 
730 FOR A=1 TO TL:FOR B=1 TO 8 
740 PRINT#1,INSCA,B):NEXT B,‚A 
750 CLOSE#1 : RETURN 
759 REM sevennaansaen vennonvanvn.... 
770 REM * UITGAVEN hel 
780 REM …annnaenneanssnensnussenT...... 
730 RESTORE 100:FOR A=1 TO 8:READ RUSCA) 
:NEXT A:RU=3:B5=".UIT”:GOTO 410 
BOO REM … MAANDOVERZICHT *** 
B1@ GOSUB 2020 


B20 KOPS="” TOTAAL”:FOR A=1 TO 8:READ AS 
:KOPS=KOPS+AS+” ":NEXT A:KOPS=LEFTSCKOPS 
‚„LENCKOPS)-1)+"BTW-BEDR" 

830 LOCATE @,8:PRINT”MAAND:”;:LINE INPUT 
M$: RESTORE 110:FOR A=1 TO VALCMS) : READ 
MDS:NEXT A:MS=MDS 

840 LOCATE 6,8: PRINIMDS 

850 MOS=LEFTSCMDS,8)+BS 

850 LOCATE @,10:PRINT" EJ LOADING ”;MDS;” 


on OPEN MDS FOR INPUT AS 1 

888 INPUT#1,TL 

830 IF TL=@® THEN CLOSE#1:GOTO 1950 
300 FOR A=210 8: INPUT#I,SMCAD:NEXT A 
910 FOR A=1 TO TL:FOR B=1 TO 8 

320 INPUT#1,INSCA,B):NEXT B,‚A 

330 CLOSE#1:CLS 


940 IF I$="P"” THEN 1170 

950 FS=1:FF=2:FRel: PRINI" MA 
AND: ”;LEFTSCMDS,B);”" —________—”":B5="D 
6” 

95% LOCATE @,1:PRINT B$;MIDSCKOPS,FS, 36) 
370 PRINTSTRINGSCHO, ”_"); 


980 LR=FR+15: IF LR>TL THEN LR=TL 

930 FOR A=FR TO LR 

1022 PRINT INSCA,1);"” "; 

1010 FOR B=FF TO FF+3 

1020 PRINT USING U$;VALCINSCA, B); 

1030 NEXT B:PRINT:NEXT A 

1040 IF A<TL+1 THEN PRINTES;ES:GOTO 1070 
1059 LOCATE 3,19:PRINISTRINGSC36, "="); 
1050 LOCATE 3,20:FOR A=FF TO FF+3:PRINTU 
SING US;SMCA);:NEXT A 

1070 IS=INKEYS:IF IS="”” THEN 1070 

1080 IF ASCCIS)=28 THEN IF FS<28 THEN FS 
=FS+9:FF=FF-CFF<S5):GOTO S60 

10390 IF ASCCIS)=23 THEN IF FS>1 THEN FS= 
FS-9:FF=FF+CFF>2):GOTO S60 

1100 IF ASCCIS)=3@ THEN FR=FR+CFR>1):GOT 
0 360 


1110 IF ASCCIS)=31 THEN FR=FR-CFR<CIL-15) 
:GOIO 360 

1120 IF ASCCIS)=11 THEN FR=1:FS=1:FF=2:G 
OTO 360 

1130 IF ASCCIS)=27 THEN FR=TL+1+16*CIL>1 
B)+IL*CIL<=15):FF=5:FS=28:GOIO 950 

1140 IF ASCCIS)=-13 THEN RETURN 

1150 GOIO 1070 

1159 REN »eevnnnnnnnnnennnnwennmnnnn..n 
1170 REN « PRINTER OVERZICHT . 
1189 REN **mmennenenenrnennvantnn nnn... 
1190 LPRINT CHRSC27); "@” 

1209 LPRINT "OVERZICHT VAN DE MAAND ”;MS 
;‚:IF BS=”.IN" THEN LPRINT ”CINKOMSTEND” 
ELSE LPRINT ”CUITGAVEN)” 

1210 LPRINT:LPRINT ”DAG ”;KOPS 

1220 LPRINI SIRINGSC72,”_”) 

1230 FOR A=1 TO TL:FOR B=1 TO 8 

1240 IF B=1 THEN LPRINT USING ”\ An; 
INSCA,B);ELSE LPRINT USING US;VALCINSCA, 
BD); 

1250 NEXT B:LPRINI:NEXTA:LPRINT STRINGSC 
72, n=") 

1259 LPRINT ” ”‚:FOR A = 2 TO 8 
1270 LPRINT USING U$;SMCA); 

1280 NEXT A:LPRINT: RETURN 

1290 REM ……vvenenvacesesvevavnTnTn.. 
1300 REN * KWARTAALOVERZICHT . 
1319 REM *……svensnaavsesvevenennenvnnnÛn 
1320 GOSUB 2020 

1330 FOR A=1 TO B:READ RUSCA):NEXT A 
1240 LOCATE @,8:LINE INPUT "KWARTAAL: ”;K 
WS: Ku=VAL CKWS) 

1350 IF KW<1 OR Ku>4 THEN 1340 

1350 RESTORE 110:FOR A=1 TO KW 

1370 FOR B-1 10 3 

1380 READ MSCB):NEXT B:NEXT A 

1390 FOR A=1 TO 3:MDSCAD=LEFTSCHSCA) ,8)+ 
BS:NEXT A 

1400 PRINT:PRINT:SOM=O:FOR A=1 TO 3 


1410 LOCATE O,(B+2*A):PRINT”IJ LOADING ”; 
MDSCAD; 

1420 OPEN MDSCA) FOR INPUT AS#1 

1430 INPUI#1,IL:IF TL=O THEN LOCATE 24,C 
B+2*A): PRINT” CGEEN GEGEVENS)"”:GOTO 1450 
1449 SOM=1 

1450 FOR B=2 IO 8: INPUT#1,SMCB) : SKCB)=SK 
CB)+SMCB):NEXT B 

1459 CLOSE#1:NEXT A 

1470 FOR A=1 TO 1000-2000*CSOM=0):NEXT A 
:IF SOM=@ THEN RETURN 

1480 IF B5=".IN" THEN MSC2)="INKOMSTEN ” 
ELSE MSC2)="UITGAVEN ” 

1490 RUSC2)="” TOTAAL”: RUSCEI=” BTu” 
1500 IF IS="”P" THEN 1620 

1510 CLS:PRINT MSC2)”KWARTIAAL ";MSCI;” 

TOT ”;M$C3) 

1520 PRINT:PRINT:FOR A=2 TO 8 

1530 PRINT:PRINT USING”\ \”;RUSCAD; 
:PRINT USING U$;SKCA) 

1540 NEXT A 


1558 LOCATE @,21:PRINT” DRUK CRET 
URNJ VOOR MENU 
155% IS=INKEYS: = THEN 1560 


1570 IF ASCCIS)<>13 THEN 1560 

158% RETURN 

1590 REN *erveveveervenvanenvunnvnnenn 
1500 REM * KWARTAALOVERZICH 
1610 wesvnnnn 
1528 LPRINT CHR$SC27) ; 
16530 LPRINT"OVERZICHT ";M$C2);KW;CHRSCB) 
;”e KWARTAAL":LPRINT"C”;MSCI);” TOT ";MS$ 
Cage 

1540 LPRINT STRINGSC32,”="):LPRINT:FOR A 
=2 IO 8 

155@ LPRINT USING ”\ \”;RUSCA) ; : LPR 
INT USING US;SKCA) 

1550 NEXT A:LPRINT:LPRINT 

1570 RETURN 


20 


15680 REM Kndhaladheadieeetheahisehdheeedheahheeheeheehneheohnoheehsaheshhsakechseschehachsel 

15398 REM * STOP, 'CONT’ = DOORGAAN “ 

1708 REM …esnens nnen nnen nrs. 

1718 CLS:END 

1728 RETURN 

1730 REN v…vvenvacvaveevenevennaeennn.n 

1740 REN * FILES OPSTARTEN hl 

1750 REN venmnnnnnennnnnnnnnn nnen nen 

1758 LOCATE @,6:PRINT SIRINGSC41, "j">; TA 
BC39); 


1770 PR ALLE DATA-FILES OP DE DI 
SKETTE WORDEN DOOR DEZE OPTIE G 
EWIST! "; TABC39) ; "If"; : PRINTSTRINGSC 
40,” 


CSELJ = DOORGAAN 
1798 IS=INKEYS:IF IS="”" THEN 1798 
1800 IF ASCCI$S)=27 THEN RETURN 
1818 IF ASCCIS)<>24 THEN 1790 
1820 B$=", IN" 
1839 RESTORE 110:FOR A=1 TO 12 
1840 READ MDS: PRINTMDS: MDS=LEFTSCMDS, B) + 
B$:OPEN MDS FOR OUTPUT AS 1 
1859 PRINT#1,O 
1850 CLOSE#I:NEXT A 
1870 IF B$=".IN" THEN B$=",UIT"”:GOTO 183 
@ 
1880 RETURN 


18390 REN *emennenvennnenvnnnnnnn m.n... 


1900 REN * GEHEUGEN VOL bel 


1917 REN v…envanannenwsnnnenvtnnnnwsenn 


1320 LOCATE @,20: PRINT” MAXIMAAL 
109 BOEKINGEN ! 
1330 FOR A=1 TO XT A:RETURN 


1940 REM *manwannnn hheehehaeeehhsedenhhsehshesdsad 


1350 REN * GEHEUGEN LEEG hd 
1950 REN **vennnnnnnnnnennnnnn mann... 


1370 FOR A=1T0S:LOCATE @,12:PRINT” 
GEEN GEGEVENS OP DEZE SCHIJF 
1388 FOR B=1 TO 300:NEXT B:LO e,1e:P 


RINT E$:FOR B=1 TO 150:NEXT B:NEXT A:RET 
URN 


1780 LOCATE Sboorseen gp CESCJ = MENU 


1990 REM weneununnnnvununensnnnvnennven 

2000 REN * MAAK EEN KEUZE - 

2018 REM annnssnsenT …vnvnnn.n 

2020 PRINI"CIJ = INKOMSTEN”:PRINT:PRINT” 
CUI = UITGAVEN” 

2030 IS=INKEYS:IF 15="” IHEN 2030 

2040 IF IS<>”1” AND I5<>"U” THEN 2030 

2050 IF 15="1” THEN B&$=".IN":RESTORE 30 
:PL=O:ELSE B$=".UIT”:RESTORE 100:PL=2 

2050 LOCATE 16,PL:PRINT "<=" 

2070 LOCATE O,4:PRINI”CS] = SCHERM”: PRIN 
T:PRINI”CPJ = PRINTER” 

2080 IS-INKEYS:IF I$=”"” THEN 2080 

2090 IF I$<>”S” AND IS<>”P” THEN 2080 

2100 IF I$="5"” THEN PL=4 ELSE PL=6 

2110 LOCATE 16,PL:PRINT "<=" 

2128 RETURN 

2130 REM venvvevsnT........ 
2140 REN * FOUT GEMAAKT | - 

e215e REM …enuveesversvseenvenvvav.. 
2160 CLS:RETURN 2200 

2170 REM *…veunvennnnenenvnsenvenvnnn 
2180 REN « MENU . 

2139 REN vvenenenvnnnenen ehehe 
2200 CLS:LOCATES,1:PRINI”*sseen Mm EN U 
venene” PRINT: PRINT: PRINT: PRINT 

2210 PRINT TABC3);”C1) BOEKING INKOMSTEN 
”;PRINI:PRINT TAB(9);”C2) BOEKING UITGA 
VEN”: PRINT:PRINT TABC9);"”C3) OVERZICHT 1 
MAAND” 

2220 PRINT:PRINT TABCS);"”C4) KWARTAALOVE 
RZICHT”:PRINI:PRINT TABCS);”(5) PROGRAMM 

A SIOPPEN”:PRINI:PRINT TABC9);”(6) BESTA 
ND OPSTARTEN” 

2230 ERASE SM,SK,INS:DIM SMCB),SKCB), INS 
C100,8) 

2240 LOCATEO,20:PRINT"EJ DRUK HET CIJFE 
R VAN UW KEUZE IN B 
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2250 IS=INKEYS:IF IS<”1” OR I$>”6” THEN 
LOCATE @,20:FOR A=1T0200:NEXTA: PRINTES: F 
OR A=1T0150:NEXT A:GOTO 2240 

2250 I=VALCIS):CLS:ON I GOSUB 380,770,80 
@,1309,1539,1740:GOTO 2200 


KASBOEK GRAFIEKEN 


Dit programma is bedoeld om de gegevens uit het 
kasboek-programma op een grafische manier op het scherm 
voor te stellen. 


Vooraleer te beginnen, zet u de hoofdletters “aan”, met 
een druk op de CCAPS]-toets. 


Laad het programma met het “run”-commando. Dan krijgt u 
op het scherm de keuze tussen 4 opties : staafdiagram, 
lijndiagram, taartdiagram of stoppen met het programma. 


Bij de eerste drie opties dient u een aantal indicaties 
te geven. 


Eerst geeft u op of u een diagram van inkomsten dan wel 
uitgaven wilt zien; u drukt daartoe op de CI) of de 
CUJ-toets. 


Vervolgens drukt u op de CRI, CMJ of CKJ toets, 
naargelang u een diagram wilt zien van een bepaalde 
rubriek over een bepaald aantal maanden, of van een 
bepaalde maand over de vijf rubrieken, of van een 
bepaald kwartaal over de vijf rubrieken, 


Drukt u op de CMI-toets, dan wordt gevraagd naar de 
maand die u wilt bekijken, Geef het nummer van de maand 
als een getal van twee cijfers in, dus van Ol tot 12. De 
gegevens van de gevraagde maand worden van de schijf 
gehaald en het diagram wordt getekend. 


Dan wacht de computer op een druk op de CRETURNJ-toets, 
en u krijgt terug het beginscherm te zien. 


Indien u voor een staaf- of lijndiagram had gekozen, 
ziet de schermindeling er als volgt uit : links ziet u 
een as, verdeeld in vijftien gelijke segmenten, en 
bovenaan een “x”-teken gevolgd door een getal. Dat getal 
is een schaalfactor, die u moet vermenigvuldigen met de 
gradueringen op de schaal links om het bedrag te kennen 


waarmee een bepaalde “hoogte” van de grafiek 
overeenkomt. Bovenaan het scherm ziet u wat het 
onderwerp van de getekende grafiek is : inkomsten of 


uitgaven, gevolgd door de naam van een maand, of een 
bepaald kwartaal, of “rubriek” gevolgd door de naam van 
de gevraagde rubriek. 


Onderaan het scherm ziet u de namen van de vijf 
cubrieken, ofwel de beginletters van de maanden. 


Had u een taartdiagram gekozen, dan ziet u nu 
verschillende cirkeldelen, met een cijfer in. Als u een 
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taartdiagram van een maand of een kwartaal had gekozen, 
dan slaat het cijfer op de rubriek, en komt elk cijfer 
overeen met de plaats waarop de rubriek staat in het 
lijstje vooraan in het programma Cregels 110 en 150). 
Komt een bepaald cijfer niet voor op de grafiek, dan 
werden voor die rubriek geen boekingen verricht tijdens 
de onderzochte periode. 


Koos u voor een taartdiagram van een rubriek, dan slaan 
de cijfers op de maanden. Komt een cijfer niet op het 
scherm voor, dan werd voor de gekozen rubriek in de 
ontbrekende maand(en) geen omzet gerealiseerd. 


Als u samen met dit programma de screendump-routine in 
machinetaal (elders in dit boek) had ingelezen, dan kunt 
u nu met een druk op de CESCJ-toets een afdruk op papier 
maken van het diagram dat u op het scherm ziet, 
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1 REM *wevuunnsennnascennensvunsennnnn 
2 REN * ed 
3 REN * DIAGRAMMEN hd 
4 REM * hl 


5 REM *vnuunevvevevevsvenrnenenennn.nnn. 


10 WIDIH 4@:KEY OFF:COLOR 15,4,4:CLS 
20 CLEAR 1000:DIM ACS),BC12),MSC12), RUSC 


30 FOR N = 1 TO 12:READ MSCND:NEXT N 

4@ GOTO 1810 

GQ REN *evneunvevevoeneennenvenveneenen 

5 REM * MAANDEN UH JAAR. LET OP : bed 
* ’SEPTEMBE' IS GEEN TYPFOUT hl 
…… …ncasensnennn. 

7@ DATA JANUARI ,FEBRUARI, MAART, APRIL, MEI 

‚JUNI, JULI, AUGUSTUS, SEPTENBE, OCTOBER, NOU 

EMBER, DECEMBER 

B@ REM vennnnnvenvessvnvnsvTv..... 

30 REM * RUBRIEKSNAMEN INKOMSTEN hed 

100 REM seenannnunnennmennennevennnnnnnn 

118 DATA SOFTWARE, BOEKEN, HARDWARE , HERSTE 

LL INGEN, ROYALTIES 

120 REN *evvennnennunanvvennunvenn..n 

130 REM * RUBR . 

1HO REN vem khad 

158 DATA ONKOSTEN, PRIVE, BUREAU, SOFTWARE, 

BOEKEN 

160 REN *eennunnenvennennennenndtannn..n 

178 REM * DATA VOOR VIER KWARTALEN led 

180 REM **vanveevnnannvenvenennnennnnen 

190 DATA 1ste,2de, 3de, tde 

209 REM vevennennenvvunvunnennsvnn 

210 REM * ALGEMENE INPUT-ROUTINE * 

22 REM *…eneeeveneescvevesvenvnvennÛ. 

23@ PRINT “INKOMSTEN CIJ OF UITGAVEN CU 

1 ”;:GOSUB 13900:X$=IIS 

248 IF X$<>”I"”ANDXS<>”"U”THENPOKEC62428! ) 

‚PEEKC62428! )-1:GOTO230 ELSE PRINT 

250 BS=”,IN”:CS="INKOMSTEN”:RESTORE 110 
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250 IF X$="U" THEN B5=",UIT":CS=”UITGAVE 
N”:RESIORE 150 

270 FOR N=1 TO S:READ RUSCN):NEXT N 

2808 PRINT”RUBRIEK CRI MAAND CMJ OF KWART 
AAL [KJ ”;:GOSUB 1900:KZ$=IIS 

2390 IF K2$<>”M"ANDKZS<> ”R"ANDKZS<> ”K”"THE 
N POKEC62428! ), PEEK(62428! }-1:GOTO280 EL 
SE PRINT 

300 IF KZ$S = ”R” THEN 510 

310 IF K2S = "K” THEN 440 

JLD REN *erannannnnnuvenvnnvennnnnnnnn. 
330 REN * MAAND-DIAGRAM « 
340 REN *veaneuvenvevennvennunennenennn. 
350 MX=O:ES="WELKE MAAND : ” 

36® GOSUB 1920 

370 PRINT"”LOADING ”;M$SCM);BS 

38% OPEN CMSCM)+BS) FOR INPUT AS #1 

330 INPUT#I,X:IFX = @ THEN CLOSE #1:PRIN 
T”GEEN GEGEVENS VOORRADIG! ”:FOR N = 1 TO 
1500:NEXT N:RETURN 1880 

400 INPUT#1,X:FOR N = ITO 5: INPUT#1, ACN) 
:IF ACN) > MX THEN MX = ACN) 

410 NEXT N:CLOSE #1 

420 GOTO 850 

YI REM *evenenennvvenvenenennnennenn. 
HHD REM * KWARTAALDIAGRAM hef 
H5Y REN *ennenunmmenvvnnn ennn... 
460 PRINT”WELK KWARTAAL : ”;:GOSUB 1370: 
KW=VALCIIS) 

470 IF KW < 1 OR KW > 4 THEN POKECG2429! 
>,1:GOTO 4509 ELSE PRINT 

480 RESTORE 130:FOR N = 1 TO KW:READ DS: 
NEXT N 

430 S = 3*CKW-I) + 1:E = 5 + 2 
500 ERASE A:DIM ACS) 

510 LOCATE @,10:FOR N = S TO E 
528 PRINT”LOADING ";MSCN);BS;” ”; 


530 OPEN CMSCN)+BS) FOR INPUT AS #1 


540 


INPUI#1,X:IF X = @ THEN PRINT TAB(24 


);”->GEEN GEGEVENS”;:GOTO 580 ELSE PRINT 


550 
550 


+ X: 


570 
580 
530 


INPUI#1,X:MX = @ 
FOR M = 1 TO S:INPUT#1,X:ACM) = ACM) 


IF ACM) > MX THEN MX = ACM 

NEXT nl 

CLOSE #1:NEXT N 

GOTO 850 

REM *vevevuuveunesnnssvsvenenennnen 
REM * RUBRIEK-DIAGRAM - 
REM ……nuvevennevenssvenenTn...... 
LOCATE O,6:PRINT “RUBRIEK : ”;:RU=1 
LOCATE 10,6:PRINT RUSCRUD;CHRSC27); ” 
IS=INKEYS:IF 1S=”" THEN 650 

IF ASCCIS)=30 IHEN IF RU>1 THEN RU=R 
:GOTO 640 

IF ASCCIS)=31 THEN IF RU<5 THEN RU=R 
:GOID 640 

IF ASCCIS)=13 THEN 700 

GOTO 640 

PRINT 


ES="VAN MAAND : ” 

GOSUB 1920: S=M 

E$="TOT MAAND : ” 

GOSUB 1020: E=Nn 

ERASE A:HU=E-S+1:DIM AC12) 

MX=@: FOR N=STOE 

PRINT"”LOADING ”;MSCN);B5;” ”; 

OPEN MSCN)+BS FOR INPUT AS #1 
INPUT#1,X:IF X=@ THEN PRINT TABC24); 
GEEN GEGEVENS”;:GOTO 840 ELSE PRINT 
INPUT #1,X 

FOR M=1 TO 5: INPUT#1,X 

IF M=RU THEN ACND=ACND+X: IF ACND>MX 


THEN MX=ACN) 


830 
B40 
850 


NEXT Mm 
CLOSE #1: NEXT N 
SC=INTCMX/150)+1 
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850 IF MX=@ THEN FOR N=1 TO 1500: NEXT N 
: RETURN 

870 SCS=STRSCSC*10):MIDSCSCS,1,19="x" 
880 SCREEN 2:0PEN ”GRP:” FOR OUTPUT AS # 
1 

8390 IF MNS="3"” THEN RETURN ELSE LINE (23 
‚16)-(23,174):LINEC23,174)-(255,174) 

300 FOR N = 24 TO 174 STEP 10:LINECO,N)- 
C255,ND:NEXT N 

910 FOR N= @ TO 15:PSETCO,157-10*N),0:P 
RINT #1,N:NEXT N 

328 IF K2$="R" THEN 950 

330 FOR N= 1 TO S5:PSET CCN-1)*48+24,176 


940 PRINT#1,LEFTSCRUSCN), 5) 

950 NEXT N 

960 PSET (0,8),0:PRINI#1, SCS 

370 IF K2S="M” THEN PSETC24,0),0: PRINT#1 
‚C$;” ”;MSCMD 

980 IF K2S="K" THEN PSEIC24,0),0: PRINT#1 
‚C5;” ”;DS;” KWARTAAL” 

380 IF KZS="R" THEN PSETC24,0), 4: PRINT#1 
„”RUBRIEK ”;RUSCRUD 

1000 RETURN 

1010 REM …eevnsnnaansnaasnnn....... 
1020 REM * SUBROUTINE INPUT MAANDNR. * 

1030 REN *evenenenunveevsennnenvnnn 
1040 M=0:PRINI ES; 

1050 FOR N=10 TO 1 STEP -3 

1050 GOSUB 1370:M=M+VALCIISD*N 

1070 NEXT N:PRINT 

1080 IF M>12 OR M<1 THEN POKEC62428! ),PE 

EKC62428!)-1:GOTO 1040 ELSE PRINT 

10390 RETURN 

1100 REM …eaunsnueaasnennsTsnnnnnm.nn 

1118 REM * STAAFDIAGRAN - 

1120 REM Kdedheehechechheheeeedhebeehsahehsehaehsehscheedieheedheheedieaheehsahchiecheed 

1139 GOSUB 210 

1140 IF MX = @ THEN RETURN 

1150 IF KZ$="R" THEN 1200 


1159 FOR N = 1 TO 5 

1170 SX=4B*(N-1)+32:SY=174-ACND/SC 

1180 LINE CSX,SY)-CSX+24,174),14,BF 

1190 NEXT N:GOTO 1250 

1200 FOR N=1 TO 12 

1210 SX=15*CN-19+31:SY=17H-ACNI/SC 

1220 PSETCI6*CN-1)+35,176),0:PRINI#1,LEF 
ISCMSCND, 1D 

1230 LINE (SX,SY)-CSX+15,174),14,BF 

1240 NEXT N 

1250 IF INKEYS=”"THEN 1250 

1258 CLOSE#1 : RETURN 

1270 REM EEE EE 

1280 REM * LIJN-DIAGRAM . 

12390 REM EE EE 

1300 GOSUB 210 

1310 IF KZS="R" THEN 1410 

1320 X0=24:Y0=173 

1330 FOR N=1 TO 5 

1340 X1=HB*CN-1)+4H: Y1=173-ACND/SC 

1350 LINE CX@,YO)-CX1,Y1D, 11 

1350 XO=X1:YO=Y1:NEXT N 

1370 LINE (XO, Y0)-C255,173),11 

1389 LINEC255,173)-C255,175),11:LINE (25 
5,175)-(24,175),11:LINEC2H,175)-(24,173) 


1390 PAINT C25,174),11 

1400 GOIO 1250 

1410 XO=24:Y0=173 

1420 FOR N=1 TO 12 

1430 X1=15*(N-1)+38:Y1=173-ACND/SC 

1440 LINECXO, YO)-CX1,Y1D, 11 

1450 PSETC1B*(N-19+35,176),0:PRINI#1,LEF 
ISCMECND, 1D 

1460 XO=X1: YO=Y1: NEXIN 

1470 LINE CX@,YO)-C255,173),11 

1480 LINEC255,173)-(255,175),11:LINE (25 
5,175)-C24,175),11:LINEC24,175)-C24,173) 
„Ad 

1480 PAINT (25,174),11 

1500 GOTO 1259 
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1510 REM …enneunuassnsnTnnnnT...... 
1520 REN * TAART-DIAGRAN . 
1530 REM …asssunvansnnnennnsenn nnn nnn 
1540 GOSUB 210 

1550 XY=5:IF KZS="R" THEN XY=12 

1550 P2=6.28318530717S6#: SM=0 

1570 FOR N=1 IO XY:SM=SM+ACND: NEXT N 
1580 ERASE B:DIM BC12):FOR N=1 TO XY 
1590 B(ND=CP2*ACNI/SM:NEXIN 

1509 XN=127:YN=96:AA=D: EU=1:0U=O: FOR A=1 
TO XY:SWAP EU,‚OU:EH=AA+BCA): IF EH>P2 THE 
N EH=P2 

1610 IF BCA)=@ THEN 1700 

1629 SE=INT(72*SINCEH)+.5): CE=INTC72*CO 
SCEH)+.5): SS=INTC72*SINCAAI+.5): CS=INT 
C72*COSCAAI+.5): SH-SINCAA+BCAI/2) : CH= 
COSCAA+BCAI/2) 

1630 XO=INTCXN+CH*32+.5) : YO=INTCYN-SH*32 
+.5) 

1640 IF OU THEN XX=XN:YY=YN ELSE XX=X0:Y 
Y=Y0 

1650 AA=AA-.D25: IFAASOTHENAA=0 

1560 EH=EH+.@25: IFEH> P2THENEH=P2 

1670 LINECXX, YY)-XX+CS, YY-S5), 3: CIRCLEC 
XX, YYI,72,3,AA,EH:LINECXX+CE, YY-SE)-(XX, 
YY), 3: PAINTOXX+CH*BH, YY-SH*64),3 

1680 AS-RIGHTSCSIRSCA),LENCSTRSCAID-1) : P 
SET(XX+CH*56,YY-SH*56),3:COLOR 1:PRINTHI 
‚As 

1590 IF EH<>P2 THEN EH=EH-.025 

1700 AA=EKH:NEXT A:COLOR 15 

1710 IF KZS="M"THEN PSET C@,0):PRINI#1,C 
S;” ";MSCMD 

1720 IF K2$-"K"THEN PSET CO,0):PRINI#1,C 
S;” ";DS;” KWARTAAL” 

1730 IF KZ$-"R"TIHEN PSET (@,0):PRINI#1,” 
RUBRIEK ”;RUSCRUD 

1749 GOTO 1250 


1750 REM 

1760 REM wensesnvensnnnen nnn... 
1770 REM * STOP. DOORGAAN="CONTINUE' * 
1780 REM wensasansnesvsanansT....... 
1790 END: RETURN 

1800 REM vennenenvssvennvTn......... 
1810 REM * HOOFDMEN 
1820 REM …eannsvenavnnens nnn nn... 
1830 SCREENO:COLOR 15,0,0:CLS:PRINI” MEN 
U”: PRINT: PRINT: PRINT 

1840 PRINT”1. STAAF-GRAFIEK”: PRINT: PRINT 
"2, LIJN-GRAFIEK":PRINT:PRINI”3. TAART-G 
RAFIEK”:PRINT:PRINI”4. STOP PROGRAMMA” 
1850 IS-INKEYS:IF I$<"1" OR IS>”4" THEN 
1850 

1850 MNS=1$ 

1870 CLS:ON VALCIS) GOSUB 1110,1280, 1520 
„1770 

1880 GOTO 1830 

1899 REMeeeeecacscscevsverscsessssveenne 
1300 REM* ALG. INKEYS VOOR LEITERS  * 
1810 …asnvannsenns 
1320 IIS-INKEYS:IF I11$="” THEN 1920 

1930 IF ASCCIIS)=24 THEN RETURN 1880 
1940 IF IIS<”A” OR II$>"2"” THEN 1929 
1350 PRINTIIS: RETURN 

196% …….. …esaaanann. 
1570 INKEYS VOOR CI 
1989 REMseueuseaassceeensseuvenvnannnnn 
1990 IIS=INKEYS:IF I1$="” THEN 1990 
2000 IF ASCCIIS)=24 THEN RETURN 1880 
2010 IF IIS<”O” OR 11S>”3” THEN 1990 
2020 PRINTIIS; : RETURN 

2030 IF INKEYS="" THEN 2030 ELSE RETURN 
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BANKBOEKJE 


Dit programma is bedoeld om inkomsten en uitgaven 
overzichtelijk bij te houden, bijvoorbeeld als 


overbrugging van bankafschriften. Het biedt een keuze 
uit zeven “bewerkingen” 


1. Een overzicht van het bestand vragen. 


Om een overzicht van de rekening te zien, drukt u C1J. U 
kunt kiezen tussen een overzicht op het scherm en een 
overzicht op de printer. 


U krijgt een totaal overzicht op het scherm door na de 
optiekeuze CI), drie keer op de CRETURNI-toets te 
drukken. Dan wordt het hele bestand doorlopen van het 
begin tot het eind. 


Wilt u stoppen vooraleer u het hele bestand hebt gezien, 
dan drukt u CESCJ in plaats van CRETURN]. 


Om een stukje van het bestand te zien, geeft u de begin- 
en de einddatum in. 


Komt de exacte begindatum niet voor in het bestand, dan 
wordt de eerste boeking op de eerstvolgende datum als 
startpunt aangehouden. 


Komt de exacte einddatum niet voor in het bestand, dan 
wordt de laatste boeking op de laatste datum voor de 
opgegeven einddatum als eindpunt genomen. 


Wilt u alleen maar de boekingen bekijken die op een 
bepaalde datum gebeurd zijn, dan geeft u als start- en 
einddatum dezelfde gegevens op. 


Kiest u voor een overzicht op papier, dan zult u merken 
dat de laatste regel, de balans, vet afgedrukt wordt. 
Daartoe dienen de commando's LPRINT CHRS$C27 E" (vetjes 
aan) en LPRINT CHR$C27);"F" (vetjes uit). Die commando's 
kunnen voor uw printer anders zijn. Zoek in het handboek 
van uw printer, in de lijst met commando's, een 
omschrijving zoals "emphasised" of "vetjes" of "bena- 
drukt”, en vervang bovenstaande instructies door degene 
die u in het handboek van uw printer vindt. 


2. Boekingen invoeren 


Wanneer u boekingen intypt, kunt u er maximaal 5 in een 
keer ingeven. Dit is met opzet zo geregeld, om de 
scherm-opmaak overzichtelijk te houden. Na de vijfde 
boeking stopt deze subroutine vanzelf en de stand tot 
dan toe wordt getoond. Met twee toetsindrukken kunt u 
weer verder invoeren, mocht dat nodig zijn : druk 
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CRETURNJ voor het “menu” en dan weer rel voor 
“boekingen”. 


U kunt maximaal 175 boekingen tegelijk in het geheugen 
hebben. U wordt gewaarschuwd als u dat aantal bereikt, 
Kebt u nog verdere gegevens in te voeren, dan kiest u 
optie CS), daarna [7] en dan typt u Crun) en drukt u 
CRETURNJ. Als datum geeft u nu wel de datum van morgen 
op, zoniet wordt het bestand dat u net wegschreef op 
schijf, overschreven wanneer u het nieuwe bestand op 
schijf zet. Dit laatste geldt niet voor cassette- 
gebruikers, hoewel het eenvoudiger kan werken : het kan 
verwarrend zijn wanneer u twee bestanden met dezelfde 
naam op band hebt staan. 


Wilt u ophouden met invoeren dan drukt u, bij de vraag 
naar de datum, op de CRETURNJ-toets. 


Tijdens de invoer zult u, na het afsluiten van elke 
volledige boeking, onderaan het beeld zien verschijnen 
"Ik sorteer”. In het begin zal dit zo snel gaan dat u 
enkel een Flits ziet. Naarmate er meer en meer boekingen 
in het geheugen zitten, zal het langer gaan duren : het 
is een gewone "bubble sort”-routine. 


Het Feit dat er gesorteerd wordt, houdt in dat u niet de 
boekingen op volgorde van datum hoeft in te geven : het 
programma zorgt ervoor dat alle boekingen in 
chronologische volgorde komen te staan. 


3. De balans 


Optie C3) geeft de stand van zaken op de datum die u bij 
het begin van het programma ingaf, en geeft ook aan of u 
nog boven nul (credit) of onder nul (debet) staat op de 
rekening. 


4, Corrigeren 


Deze optie laat toe om, zoals u al verwachtte, 
correcties uit te voeren aan de ingebrachte gegevens. U 
kunt alle vier de elementen van een boeking wijzigen. 


Wijzigt u de datum, dan wordt de boeking, na uw 
bevestiging dat het geheel nu wel correct is, op de 
chronologische plaats in het bestand gezet. Wijzigt u 
het bedrag, dan wordt uiteraard de balans aangepast. 


Indien er meerdere boekingen op eenzelfde datum gebeurd 
zijn, krijgt u die allemaal na elkaar gepresenteerd. 


Wilt u niets veranderen, dan drukt u vier keer na elkaar 
op de CRETURNJ-toets en dan de (JJ. Ziet u op het scherm 
de boeking die u wilde wijzigen, wijzig dan het nodige 
en antwoord op de vraag of het correct is, met een druk 
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op de LESCJ-toets : dan wordt eerst het gewijzigde 
record, indien nodig, op zijn plaats gezet in het 
bestand, en vervolgens keert het programma terug naar 
het menu. 


Door die “"ontsnappings-mogelijkheid" wordt vermeden dat 
u, als er na de gewijzigde boeking, nog boekingen op 
dezelfde datum in het bestand zitten (die dus ook op het 
scherm zouden getoond worden, hoewel dit niet langer 
nodig is), daar doorheen moet “ploegen” met de 
CRETURNJ-toets. 


5. Gegevens wegschrijven 


Deze optie laat de keuze tussen wegschrijven op schijf 
oF op cassetteband. Had u per ongeluk de C5) ingedrukt, 
dan drukt u op de CESCJ-toets in plaats van CS] of [DJ, 
en u keert terug naar het menu. 


Indien u naar cassette wegschrijft, dan kunt u het 
veiligste als volgt werken : gebruik twee cassettes, om 
de andere dag cassette 1 of 2, bijvoorbeeld cassette 1 
voor de gegevens van vandaag, cassette 2 voor morgen; 
cassette 1 komt overmorgen weer aan bod, en cassette 2 
de dag nadien. Mocht er onverhoopt iets mislopen, dan 
hebt u nog altijd de gegevens van de vorige dag ter 
beschikking. Als u maar 1 cassette gebruikt, kunt u het 
ook zo regelen dat u de gegevens van opeenvolgende dagen 
na elkaar op de band zet, en de tellerstand van de 
recorder noteert. Is de cassette vol, dan herbegint u 
aan het begin van de cassette, en zo verder. 


Gebruikt u een disk-drive, dan kunt u na het 
wegschrijven, de gegevens van de vorige keer wissen. 
Wilt u dat niet, dan drukt u CRETURNJ als antwoord op de 
betreffende vraag. 


6. Gegevens in het geheugen laden 


Net zoals bij optie CS] kunt u ook hier kiezen tussen 
inladen van cassette en inladen van schijf, 


Het leek ons het beste om de gegevens weg te schrijven 
met de datum als referentie-gegeven in de naam van het 
bestand. 


Wanneer het programma nu naar de naam vraagt van het 
bestand dat u wilt inladen, dan voert u alleen de datum 
in, dat wil zeggen 6 tekens. Het programma past verder 
de naam zo aan, dat de gegevens ingelezen kunnen worden. 


7. Programa stoppen 


Optie [71 kiest u om met het programma te stoppen. U 
krijgt bij deze optie alsnog de kans om de gegevens in 
het geheugen weg te schrijven, mocht u dit vergeten zijn 
na het invoeren ervan. Wanneer u als antwoord op deze 
vraag, CNI drukt, stopt het programma. Om nadien verder 
te gaan, met behoud van de gegevens in het geheugen, 
drukt u CF2] in. Hoeft u niet de gegevens te behouden, 
dan kunt u ook gewoon CFS] drukken C”run”). 


Om enerzijds het programma gebruiksvriendelijk te maken, 
en anderzijds een goed gebruik voor He Funktietoetsen 
aan te geven, zijn twee Eunktietoetsen voorgeprogram- 
meerd : Fl en Fe. 


Funktietosts (1) gebruikt u, mocht er iets Fout gaan 
tijdens de loop van het programma, bijvoorbeeld wanneer 
u vergat een diskette in de disk-drive te stoppen, 
waardoor het programma stopt en een foutmelding geeft. 
Druk op CF1J en u krijgt het "menu' te zien. 


Funktietoets (21) gebruikt u om na het stoppen van het 
programma via optie [7], opnieuw te starten met behoud 
van de gegevens. 


nn AN ANN el 


BOEKINGEN 


UITTREKSEL 
BOEKINGEN 

BALANS 
CORRECTIES 

SAVE DATA 

LOAD DATA 

STOF PROGRAM EEE 


TOETS UW KEUZE IN EER 


220487 


PATLUM AAN MAN REDEN 


2404 BANK 
30ad4 GIRO 


RENTE 
RENTE 


HUIDIGE STAND V.D. REKENING 130.06 


EN DEK 


CRETURNJ WOOR MENU GG 


1 REM *ennennmanwsvenenvnnnnn nnen nnn 


2® REM * ks 
30 REN * BANKBOEK JE kad 
HO REM * has 


5Q REM *evuesunseneneenvnnsenvenesenenn. 

60 WIDTH 4O:KEY 1,”RETURN"+CHRSC1I3): KEY 

2,”GOTO 1470”+CHR$SC13):KEY OFF:CLEAR 750 

@:DIM N$SC175),CSC175),DSC17S),MC175),XSC 

7): US" HRRHHRH HH 

70 DEF FN OMSCYS)=RIGHISCYS,2)+MIDSCYS, 3 
‚„2)+LEFTSCYS, 2) 

88 DEF FN HLSCYS)=CHRSCASCCYE) AND 223) 

30 GOTO 1480 

199 REM ……vsvesscevsecvennn. 

110 REM * SORTEREN UD DATA * 

120 REM ……vvnesveensenenn... 

130 LOCATE @,21:PRINT” ER WORDT GESORT 

EERD... EVEN GEDULD a" 

140 FOR A=1 TO TL 

150 IF DSCAI>DSCTL) THEN SWAP D$SCA),DSCT 

L):SWAP NSCAD,NSCTL):SWAP CSCA),CECTLI:S 

WAP MCAI,MCTLI:GOTO 140 

150 NEXT A:LOCATE @,21:PRINT SPACESC40) : 

RETURN 

170 REM *eunnnmenennnennnnnn 

180 REM * UITTREKSEL GEVEN * 

199 REN venwenmenennannnnnn 

200 LINE INPUT"SCHERM CSJ OF PRINTER CPJ 
”;P$S:IF P$=""” THEN P$="5" 


218 LINE INPUT"”VANAF WELKE DATUM : ”;SRT 
S:IF SRIS="" THEN SRT$=-DSC1):SRT=1 
220 LINE INPUT"TOT WELKE DATUM 5 ”STP 


S:IF SIPS="”” THEN SIPS=DSCTL):STP=TL 
230 IF CSRI=1 AND STP=TL) THEN 320 

240 SRTS=FN OMSCSRTS) 

250 SIPS=FN OMSCSTPS) 

260 IF STPS<SRIS THEN CLS:GOTO 210 

270 FOR A=1 TO TL 

288 IF DSCA)<SRTS THEN NEXT A:GOTO 1710 
2390 SRT=A:FOR A=IL TO SRTI+1 STEP —1 


300 IF DSCAI>SIPS THEN NEXT A 

310 SIP = A 

320 IF FN HLSCPS)="P” THEN 410 

330 CLS:LOCATE @,0:PRINT XSC1):LOCATE 34 
‚O:PRINT DAIS 

340 LOCATE @,2:PRINT"DATUM AAN/VAN R 
EDEN BEDRAG” 

350 LOCATE Q,3: PRINT STRINGSC40, 45 

3560 LOCATE 0,4:FOR A= SRT TO SIP 

370 PRINI:PRINT FN OMSCDSCAD) ; TABC7) ;NSC 
AD ;TABC18) ;CSCA) ; TABC30) ; USING US; MCAD 
380 T=1+1:1F T=5 THEN IF AXSIP THEN GOSU 
B 1750:1=0 

330 IF ASCCIS)=27 THEN RETURN 

400 NEXT A:GOTO 1640 

410 LPRINT ”REKENING-OVERZICHT VAN ”;SRT 


S;” TOT ”;STPS:LPRINT"PRINT-DATUM : ”;DA 
IS:LPRINT SIRINGSC4O, ”="): LPRINT 

420 LPRINT:LPRINT"DATUM AAN/UAN RED 
EN BEDRAG": LPRINT STRINGSC4O, ”— 


bi 

430 FOR A=SRT TO SIP 

440 LPRINT FN OMSCDSCAI) ; TABC7) ;NECAI ; TA 
BC19);CSCA); TABC30) ; USING US;MCAD 

450 NEXT A:LPRINT:LPRINT CHRSC27); "E";:L 


PRINT”BALANS OP ”;DSCTL);” :”;TABC31);US 
ING U$S;BAL:LPRINT CHR$C27);"F"”:LPRINT ST 
RINGSCHO, ”=") : RETURN 


HED REM weevnmennnnnvnnnnn 

#70 REM * BOEKINGEN DOEN * 

HBD REN enten nen 

430 LOCATE 0,0:PRINT X$C2):LOCATE 34,0: P 
RINT DATS 

500 LOCATE @,2:PRINT"DATUM AAN/VAN R 
EDEN BEDRAG” 

510 LOCATE Q,3:PRINT STRINGSCHG, "-"):X=H 
520 TL=IL+1:IF TL>175 THEN TL=175:GOTO 1 
530 

530 LOCATE @,X:LINE INPUT DSCTL):IF DSCT 
L)=""” THEN TL=TL-1:GO0TO 600 
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530 DSCIL)=FN OMSCDSCTLI) 

55@ LOCATE 7,X:LINE INPUT NSCTL):NSCTL)= 
LEFTSCNSCTLJ, 10) 

S5@ LOCATE 18,X:LINE INPUT CSCTL): CSCTL 
)=LEFTSCCSCTL), 10) 

570 LOCATE 29,X:LINE INPUT A$:MCTL)=VALC 
AS): BAL=BAL+MCTL): LOCATE 23,X:PRINT” ”;U 
SING US;MCTLD 

580 GOSUB 110 

530 X=X+2:1IF X<14 THEN 520 

500 LOCATE @,X:PRINT STRINGSC4@, ”"-”) 

61@ PRINT”HUIDIGE STAND V.D. REKENING: ”; 
TABC30);USING US;BAL 

628 GOTO 1640 

539 REM *…mvanennneenvenveen 

640 REM * BALANS OPMAKEN hd 

559 REM vennen nnn 

5650 LOCATE 16,4:PRINT X$C3):LOCATE 18,6: 
PRINT”OP"”:LOCATE 16,8:PRINT DATS 

567@ LOCATE 15,13:PRINT USING US;ABSCBAL) 
580 LOCATE 14,15:IF BAL=>@ THEN PRINT"++ 
CREDIT++” ELSE PRINT "--DEBET--” 

690 GOTO 1640 

700 REN *eennnennnuvvenennen 

718 REM * CORRECTIES DOEN * 

72 REN *eenmnnnnnnnnenn hed 

730 INPUT"WELKE DATUM”;IS:IS=FN OMSCIS): 
CLS 

740 QS="P":UND=O:FOR N= 1 TO TL 

75@ IF DSCN)=I$ THEN GOSUB 730 

7568 IF ASCCQS)=27 THEN N=TL 

770 NEXT N:IF UND=@ THEN GOTO 1770 

780 RETURN 

730 UND=1:LOCATE @,0:PRINT X$CH); TABC3HD 
;DATS 


809 LOCATE @,3: PRINT"DATUM: ”;FN OMSC 
DSCN)): PRINT: PRINT"AAN/UAN: ”;NSCN):PRI 
NT: PRINT”REDEN: ”;CSCN): PRINT: PRINT"B 
EDRAG: ”;MCND 


810 QQS=-DSCN) 


829 LOCATE B,3: INPUT DSCN):DSCND=FN OMSC 
DSCNDD 

830 LOCATE B,5: INPUT NSCN):NSCND=LEFTSCN 

SCN), 10) 

840 LOCATE 8,7: INPUT CSCN):CSCN)=LEFTSCC 

SCN), 10) 

850 LOCATE 8,3:INPUT H: IF H<>M(N) THEN B 

AL=BAL-MCNI+H: MOND =H 

850 LOCATE 7,21:PRINI” CORRECT CJ/N 
Ee Eed Ee 

70 US=INKEYs: IF QS="" THEN 870 ELSE QS 
=FN HLSCQS) 

889 LOCATE @,21:PRINT SPACESC40): IF Q$=" 
N"THEN GOTO 800 

890 IF Q$<>”J” AND ASCCQS)<> 27 THEN 850 

900 IF QQS-DSCN) THEN 970 

910 LOCATE O,21:PRINT”Ej ER WORDT GESORT 

EERD... EVEN GEDULD n=" 

geo ST-O 

930 FOR A=1 TO TL-1:B=A+1 

940 IF DSCAI>DSCB) THEN SWAP DSCA),DSCH) 
: SWAP NSCA) ,NSCB): SWAP CSCA),CSCB) : SWAP 

MCAD ,MCB): ST=1 

950 NEXT A:IF ST=1 THEN 320 

35% LOCATE @,21:PRINT SPACESC4O) 

970 RETURN 

380 REM venssnsuunnn.... 

930 REM * SAVE GEGEVENS - 

1000 REM …evevsennsesnn.. 

1010 LOCATE @,10:PRINT”Ej SAVE NAAR CASS 

EITE CC] OF DISK CDJ u" 

1020 SS-INKEYS:IF S5="" THEN 1020 

1030 IF ASCCSS)=27 THEN RETURN 

1042 SS-FN HLSCSS):IF S$<>”C” AND SS<>”D 
” THEN 1020 

1050 FL$="BK"+DAIS+".DAT”: IF S5$=”C" THEN 
FLS="CAS: "+FLS 

1050 IF S$=”D"” THEN 1110 

1070 CLS:PRINI”MAAK RECORDER KLAAR VOOR 

OPNAME”: PRINT: PRINT”EN DRUK CRETURNI” 
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1080 WS=INKEYS:IF W$="" THEN 1080 

1090 IF ASCCWS)<>13 THEN 1080 

1100 IF S$=”C” THEN MOTOR ON 

1110 OPEN FLS FOR OUIPUT AS 1 

1120 PRINI#1,TL:FOR N=1 TO TL 

1130 PRINT#1,DSCND : PRINT#1,NSCN) 

1140 PRINT#1,CSCND : PRINT#1 ‚MCN 

1150 NEXT N:PRINT#1, BAL: CLOSE#1 

1160 IF S$-"C” THEN MOTOR OFF: RETURN 
1170 IF S$-"D" THEN CLS:FILES 

1180 PRINT:PRINT:LINE INPUT "WIS FILE CE 

NKEL DATUM!) : ”;WS:IF W$="" THEN RETUR 
N 

1199 W$-"BK"+W$+".DAT”:KILL WS: RETURN 
1290 REM …svennensnnnnnT.. 

1210 REM * LOAD GEGEVENS - 

1220 REM ……vvecaaasasannn. 

1230 LOCATE @,10:PRINT"g LOAD VAN CASSE 

TIE CC) OF DISK CDJ in 

1240 SS=INKEYS:IF S5$="" THEN 1240 

1250 IF ASCCS$)=27 THEN RETURN 

1250 S$=FN HLSCSS):IF S$<>"”C"” AND S$<>”D 
” THEN 1240 

1270 IF S$-”D"” THEN CLS: FILES 

1280 PRINT:PRINT:INPUT”WELKE FILE CENKEL 
DE DATUM!)”;FLS 

1230 FLS=-"BK"+FL$+".DAT": IF S$="C" THEN 
FLS="CAS:”+FLS 

1300 IF S$="C"” THEN MOTOR ON 

1310 OPEN FLS FOR INPUT AS 1 

1320 INPUI#1,TL:FOR N=1 TO TL 

1330 INPUI#1,DSCND : INPUT#1 ,NSCND 

1340 INPUT#1,CSCN) : INPUT#1 , MCN) 

1350 NEXT N: INPUT#1,BAL : CLOSE#1 

1350 IF S$-"C” THEN MOTOR OFF 

1370 RETURN 


1380 REM »…envsvenervensvnnre 

1398 REM * STOP PROGRAMMA ht 

1400 REN **euweevenenunenveen 

1410 PRINT"EERST GEGEVENS WEGSCHRIJVEN C 
J/N) P” 

1420 SS=INKEYS:IF S$="" THEN 1420 

1430 IF ASCCS$)=27 THEN RETURN 

1440 SS=FN HLSCSS):IF S$<>"J" AND SS<>"”N 
” THEN 1420 

1459 IF S$="J" THEN GOSUB 990 

1468 CLS:KEY ON: END 

1470 REM …eveevneenen 

1480 REM *e* MENU 
1499 REN wennnenen 
1500 XSCI)="UITIREKSEL ”:X$C2)="BOEKING 


EN ”;X$C3)= "BALANS ”;XSCHIJ="CORRE 
CTIES "”:X$(5)="SAVE DATA ”:X$CE)=”"LOA 
D DATA ”;X$C7)="STOP PROGRAM” 


1518 CLS:PRINT"DATUM VANDAAG CDDMMJJ, BU 
… @14287)":PRINI:PRINI: INPUT DATS 
1520 CLS:LOCATE 8,1:PRINT'" EE 7 EN 


u 1": PRINT: PRINT 
Ed 1 TO 7:LOCATE B, (A-1)*2+5 


1540 PRINT"REJ':A;:”". ";XSCA);” WENN: NEXT 
A:1=0: SRT=Ó:S1P=0 

1550 LOCATE B,21:PRINT"gJ TOETS UW KEUZE 
EN ej 

1560 1S-INKEYS:IF I$="" THEN 1560 

1570 IF I$<”1” OR 1$>"7"” THEN 1560 

1580 IF TL=O THEN IF 1$<>"2" AND IS<”6” 
THEN GOSUB 1830:G0TO 1550 

1590 CLS:ON VALCIS) GOSUB 180,470,540,71 

0,390,1210,1390:GOTO 1520 
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1500 
1610 
1520 
1530 


REM *evunennsvenvennennTnnn 


REM * GEHEUGEN VOL-MELDING * 


REN *seesseosveunveeunvenvnn 


CLS:LOCATE @,1@:PRINT"”GEEN GEHEUGEN 


RUIMTE MEER URIJ ! SAVE BESTAND 
& START EEN NIEUW...” 


1540 
URNJ 
1650 
1560 
1670 
1580 
1530 
1700 
1718 
R IN 
1720 
1730 
1740 
1750 
VOOR 
1750 
1770 


LOCATE @,21:PRINT” DRUK CRET 
VOOR MENU 
IS=INKEYS: je THEN 1550 


IF ASCCIS)<>13 THEN 1650 
LOCATE @,21:PRINT SPACESC40) : RETURN 


REN *evvenenenvennvnnnmnnn..….n 


REN * GEENT ITEM ONTBREEKT * 
REN *…ene wannnnnnnen 


LOCATE 0,20: PRINT” KOMT NIET VOO 
DIT BESTAND ! OTO 1540 
REM »eeunnenee …….. 
REM * WACHT OP TOETS * 
REN venvnensnnnnvennn 


LOCATE @,21: een DRUK CRETURNJ 


VOLGENDE SCHERM 
IS=INKEYS:IF IS= THEN 1760 
IF ASCCIS)<> 13 AND ASCCIS)<>27 THE 


N 17650 


1780 
1730 


IF ASCCIS)=27 THEN RETURN 
LOCATE @,4:FOR B=1 TO 18:PRINT SPAC 


ESC40);:NEXT B:LOCATE @, 4: RETURN 


1800 
1810 
1820 
1830 
1840 
VENS 
1850 
RINT 
1850 


REM …*…nsnenvaccavcenaocnTT.. 
REM * GEHEUGEN LEEG-MELDING * 
REM veawunnnannnnnennennn enn 


FOR A=1 TO 5 


LOCATE @,21:PRINT"” GEEN GEGE 
VOORRADIG! 
FOR B=1 TO 8 T B:LOCATE @,21:P 


SPACESC40) 
FOR B=1 TO SO:NEXT B:NEXT A:RETURN 


VOORRAAD 


Dit programma is bedoeld om, zoals de naam het zegt, 
voorraden van diverse goederen te beheren. Het gaat dus 
niet om een gewoon bestandsprogramma. Dit programma 
houdt niet enkel de gegevens bij, die u ingeeft, maar 
verzorgt daarbij ook nog bepaalde berekeningen. 


Ten eerste wordt de totale inkoopwaarde van de voorraad 
van een bepaald artikel berekend, en aangepast wanneer 
de voorraad verandert. Ten tweede kunt u de totale 
inkoopwaarde van uw komplete voorraad opvragen. Ten 
derde kunt u, telkens als de voorraad wijzigt (bij 
aankoop of verkoop bv.) de hoeveelheid waarmee hij 
gewijzigd moet worden, ingeven, en het programma past 
verder alles zelf aan. 


Even in het kort hoe het programma loopt. 


U hebt het programma op schijf gezet als "AUTOEXEC,BAS” 
zodanig dat alleen u zelf toegang hebt tot uw gegevens. 
Hoeft dat niet zo voor u, dan geeft u het programma een 
andere naam. Dan laat u regel 30 gewoon weg : die heeft 
dan geen nut. 


In de veronderstelling dat u het wel als auto-run 
programma op schijf had gezet, krijgt u bij het 
opstarten de vraag naar uw toegangscode. U typt die 
code, gevolgd door CRETURNJ. Natuurlijk had wu tijdens 
het intypen van het programma op regel 30 uw eigen 
toegangscode gezet (maximaal 255 tekens lang!)... 


Vervolgens geeft u de datum : 2 cijfers voor de dag, 
gevolgd door 2 cijfers voor de maand, zonder scheidings- 
teken. Die vier cijfers worden gebruikt als identifi- 
catie van de gegevens op schijf. Dat betekent wel dat u 
een naam moet geven van maximaal 4 karakters lang; met 
de datum erbij, worden dat er acht. Zo houdt u, als u 
dat wilt, een overzicht op datum bij, wat nuttig kan 
zijn om bv. per maand statistieken te maken. 


Kebt u de datum ingetypt, dan ziet u op het scherm een 
lijst van B mogelijkheden. U zult merken dat het 
programma vrij behoorlijk beveiligd is tegen onlogische 
handelingen. Drukt u maar eens op een andere toets dan 
3, 7 of B. Dat heeft nu nog geen zin, omdat er geen 
gegevens aanwezig zijn waarmee het programma kan werken. 
Dat wordt u dus netjes gemeld. 


De eerste keuze laat toe om van 1 artikel alle 
opgeslagen gegevens te zien. Daartoe moet u enkel het 
artikelnummer intypen, gevolgd door CRETURNI . Het 
programma doorloopt het hele bestand op zoek naar het 
hummer dat u ingaf. Dat houdt in dat u desgewenst 
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meermaals hetzelfde artikelnummer kunt invoeren, met bv. 
een verschillende inkoopprijs. U krijgt alle artikelen 
die datzelfde artikelnummer dragen, te zien. 


De tweede optie dient om wijzigingen aan te brengen aan 
de inhoud van het bestand. U kunt desgewenst alle 
gegevens wijzigen. Het meeste zal deze optie toch wel 
gebruikt worden om de voorraad zelf te wijzigen, dat wil 
zeggen voor het ingeven van een verkochte of aangekochte 
hoeveelheid goederen. Deze INPUT dient te gebeuren met 
de aanduiding "+" of ”-” voor het aantal, om aan te 
geven dat u goederen hebt aangekocht, resp. verkocht. 
Ket programma controleert of u een van beide tekens had 
ingetypt; zoniet, wordt de input-vraag herhaald. Daarvan 
kunt u handig gebruik maken : er wordt van elk gegeven 
gevraagd wat de gewijzigde inhoud moet worden. Wilt u 
niets wijzigen aan de eerste vier velden, en enkel de 
voorraad aanpassen, dan houdt u de CRETURNJ-toets 
ingedrukt tot de cursor op dezelfde plaats op het scherm 
blijft knipperen. Dan geeft u de voorraads-wijziging op, 
en houdt opnieuw CRETURNJ ingedrukt, tot u onderaan het 
scherm de vraag “Gegevens correct 7” ziet verschijnen. 


De derde optie vraagt initieel het meeste werk. Alle 
gegevens moeten via deze optie ingetypt worden. 


Het artikelnummer kiest u uiteraard zelf. 


De omschrijving en de naam van de leverancier zijn án 
lengte beperkt tot 15 tekens. Als u met minder genoegen 
neemt, kunt u dat aanpassen op regels 350 en 360. Dan 
kunt u ook de DIM-statements op regel 10 aanpassen, 
omdat u dan meer gegevens kwijt kunt in het geheugen. 
Wees evenwel niet al te optimistisch. U kunt geen arrays 
van 1000 strings kwijt in het beperkte HSX-geheugen …… 


De inkoopprijs per stuk dient exclusief BTW opgegeven te 
worden; dat is gewoonlijk ook de prijs die op Facturen, 
leveringsbonnen en dergelijke wordt vermeld. 


De hoeveelheid in voorraad moet ook hier met een "+" 
teken ervoor worden ingegeven. 


Het volgende gegeven is de minimale voorraad. Hiermee 
wordt bedoeld, hoeveel stuks de voorraad van een bepaald 
item minstens moet bedragen. Wordt door verkoop of 
andere bewerkingen dit aantal bereikt, dan moet u 
bijbestellen. Hebt u voor dit veld geen nuttig gebruik, 
dan typt u gewoon O. 


U ziet dat direkt na deze input een getal op het scherm 
wordt gezet, en dan de volgende input gevraagd wordt. 
Dat getal is de waarde van het opgegeven aantal 
artikelen tegen de opgegeven inkoopprijs, zonder BIW. 
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Nu wordt het BIW-percentage gevraagd, en vervolgens 
wordt de totale waarde inclusief BIW afgedrukt. 


U krijgt nu de kans om gegevens te corrigeren. Drukt wu 
”J" of ”j" als antwoord op de “correct ?"-vraag, dan 
krijgt u terug het beginscherm, met de 8 opties te zien. 
Drukt u ”N" of ”n” dan kunt u van voren af aan beginnen, 
waarbij u tewerk gaat zoals onder optie 2 beschreven. 
Let op : wanneer het "”in voorraad"-cijfer correct was, 
dan geeft u als input bij "IN VOORRAAD: het aantal 
"=0" op C”+0” mag ook, maar dat vraagt toetsindruk 
meer ….….). 


Bij deze optie ziet u rechts boven op het scherm de 
aanduiding "#” staan, gevolgd door een getal. Dat is 
gewoon het volgnummer in het bestand. 


Optie 4 spreekt eigenlijk voor zichzelf. Er wordt, naar 
keuze op het scherm of op de printer, een lijst van 
artikelen afgedrukt die op of onder hun minimale 
voorraad zitten. 


Optie 5 is eveneens duidelijk. Ook hier krijgt u de 
keuze tussen een afdruk op het scherm of op de printer, 
Bij deze optie wordt op het einde van de lijst, de 
totale waarde van de voorraad opgegeven, exclusief BIW. 


Voordat de lijst wordt geprint, rekent de computer in 
enkele seconden uit wat de totaalwaarde is, Als u enkel 
die waarde wilt zien, dan drukt u na het verschijnen van 
de boodschap “Druk CRETURNJ om door te gaan”, op de 
CESC]-toets. Dit kan op elk moment tijdens het afdrukken 
van de overzichtslijst gebeuren, bij het verschijnen van 
de genoemde boodschap. Daarmee stopt wu het afdrukken, 
en keert u terug naar het “menu”. 


Optie 5 zorgt ervoor dat uw voorraad-gegevens op schijf 
kunnen gezet worden. Hier is ook voorzien in een 
herstel-mogelijkheid. Door gewoon CREIURNJ te drukken, 
na het kiezen van optie 6, komt u terug bij het 
beginscherm. Handig, als u bv. nog net 1 leveringsbon 
op uw bureau “ontdekt” 


Optie 7 laat toe om voordien opgeslagen gegevens in het 
geheugen te laden. Daarbij zijn twee mogelijkheden 

ofwel kiest u die optie bij het opstarten, ofwel hebt u 
net bestand nummer 1 op schijf gezet (bv. van boeken) en 
u wilt nu bestand nummer 2 bijwerken (platen bv.). Om 
vergissingen te voorkomen, wordt u er attent op gemaakt 
dat het geheugen van de computer niet leeg is. Hebt u 
bestand nummer 1 al weggeschreven op schijf, dan drukt u 
"j", Zoniet, drukt u "n”, kiest u optie 6 en dan weer 7. 


Optie 8 kiest u als u een bepaald artikel niet langer in 
voorraad hebt, en het niet meer terugkomt. U kunt 
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voorkomen dat het artikel per vergissing uit het bestand 
wordt gehaald door ”n” te drukken, als antwoord op de 
vraag "Wissen J/N". 


Optie 39 is duidelijk. Ook hier krijgt u nog eens de kans 
om uw gegevens weg te schrijven. Simpel CRETURNI drukken 
stopt het programma helemaal. Als u het weer wilt 
opstarten zonder de gegevens te verliezen, typt u 
“”GOTO 1130” gevolgd door een druk op CRETURNI. 
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VOORRAAD-OVERZICHT PER z 2eo0oa 


ART.NR. OMSCHRIJVING LEVERANCIER VOORRAAD INKOOP WAARDE 
1026 NCR 10 200 2000 
1027 NPP 20 voo 18000 
1028 PaFab 2500 1 2500 


TOTAALWAARDE = 22500 


EN OKEE IST 
VOORRAAD VAN EEN ARTIKEL OPVRAGEN 
VOORRAAD VAN EEN ARTIKEL MUTEREN 
NIEUW ARTIKEL AAN VOORRAAD TOEVOEGEN 
LIJST VAN TE PLAATSEN BESTELLINGEN 
OVERZICHT VAN HELE VOORRAAD OPVRAGEN 
VOORRAAD -GEGEVENS WEGSCHRIJVEN 
VOORRAAD -GEGEVENS IN.GEHEUGEN LADEN 
ARTIKEL UIT EESTAND WISSEN 
STOPPEN MET HET PROGRAMMA 


ARTIKELNR. 1026 
OMSCHRIJVING: kassa 
LEVERANCIER : NCR 
INKOOF/STUK : 200 
IN VOORRAAD : 18 
MIN.VOORRAAD: 4 
WAARDE EXCL : zaaa 
BTU IN % : a 
WAARDE INCL : 2446 


EN TOETS CRETURNI OM DOOR TE GAAN EE 
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1 REM tememnnnnnnnnnnnnnn ennen nnn 
2e REM « hed 
3 REN * VOORRAADBEHEER hl 
B REM * . 
5 


REM …ensssnnsnnnnensn ensen. 
10 CLEAR 9400:DIM ARISC230),OMSSC230) ‚PR 
SSC230),AANSC230),LEUS(230), ROLSC230),BT 
wsc230) 
20 DEF FN USCYS)=CHRSCASCCYS) AND 223):E 
S-SPACESC20) : FR=FREC”"):KEY OFF:WIDTH4O 
30 CLS:LINE INPUT"”GEEF TOEGANGSCODE : ”; 
CS: IF CS<>"XX” THEN NEW 
#0 LINE INPUI”GEEF DATUM CDDMM) : ”;DATS 
:GOTO 1130 
SQ REM vennenvveenevenusunnn 
* LAY OUT 1 ARTIKEL * 
…anvuveovvnensn.... 
BO PRINT:PRINT”ARTIKELNR. :”:PRINT:PRIN 
T”ONSCHRIJUING: ”: PRINT: PRINT”LEVERANCIER 
:”:PRINT:PRINT”INKOOP/STUK :”:PRINT:PRI 
NT”IN VOORRAAD :” 
70 PRINT: PRINT”MIN.VOORRAAD: ”: PRINT: PRIN 
T”WAARDE EXCL :”:PRINT:PRINT”BIW IN % 
:”;PRINT:PRINT"WAARDE INCL :”:RETURN 
[5 1/4} REM …ennnanannnnnnT.. 
* PRINI 1 ARTIKEL * 
…aanansensnnannn. 
90 LOCATE 15+CR,1:PRINT ARTSCAD;ES 
100 LOCATIE 15+CR,3:PRINT OMSSCAD;ES 
119 LOCATE 15+CR,5:PRINT LEUSCA);ES 
120 LOCATE 15+CR,7:PRINT PRSSCAD;ES 
130 LOCATE 15+CR,3:PRINT AANSCAD;ES 
140 LOCATE 15+CR,11:PRINT ROLSCAD;ES 
150 LOCATE 14+CR,13:PRINTCUALCPRSSCAI*U 
ALCAANSCAIID;ES 
150 LOCATE 15+CR,15:PRINT BTWSCAD;ES 
170 LOCATE 14+CR,17: PRINTCUALCPRSSCAD)*U 
ALCAANSCAII*C1+CUALCBTWSCAII/100)); ES 
180 IF WS=1 THEN RETURN 


198 IF CR=2 THEN I=PI:PT=A:GOSUB 430:PT= 
1 
200 IF VALCAANSCAII<=VALCROLSCAI) THEN L 
OCATE O,20: PRINT" BEEN B! JBESTEL 
zo 
218 
220 REN …asesenen …… 
* ARTIKEL OPURAGEN * 
vesenanneonvennvennn 
230 GOSUB 5@ 
240 LOCATE @,21: INPUT"ARTIKELNR.”;2KS 
25@ LOCATE @,21:PRINT ES 
250 FOR A = 1 TO PT 
270 IF ARTSCA)=ZKS THEN UND=1:GOSUB 89: 
IF WS=1 THEN GOTO 340 
280 NEXT A:IF UND=@ THEN LOCATE @,20:PRI 


NI” KOMT NIET VOOR IN DIT BESTAND! gj 
8 a 1340 
RETURN 


JOD REN …………envennennenveen 
* ARTIKEL MUIEREN * 
…vsvusvscessennnnn 

310 CR-2:G0 

320 REN « 
* ARTIKEL WISSEN * 
…ensvasssensennnn. 

330 WS=1:GOTO 230 

340 LOCATE @,20:PRINT"DIT ARTIKEL WISSEN 

P CI/ND” 

350 GOSUB 1520: IF X$=”N" THEN 280 

350 SWAP ARTSCA),ARTSCPTD : SWAP OMSSCA) „0 

MSSCPI): SWAP LEUSCA),LEUSCPT):SWAP PRSSC 

A),PRSSCPT) : SWAP AANSCA, AANSCPTD : SWAP R 

OLSCA), ROLSCPT) : SWAP BTWSCA),BTWSCPT) 

370 ARISCPIJ=””:OMSSCPTJ=”"; LEUSCPID="": 

PRSSCPI)="”: AANSCPIJ="": ROLSCPIJ="":; BIUS 

CPI)="”; PI=PI-1 

389 LOCATE @,20:PRINI”DIT ARTIKEL IS UIT 

HET BESTAND GEWIST !!” 
390 FOR 2=1 TO 1500:NEXT Z :GOTO 289 
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YOD REN …eenvmennvunwaarnnnen 

» ARTIKEL TOEVOEGEN * 

k dedehkeheheheaehehehehsdhehehehehesdad 
410 IF PI=230 THEN 1410 
420 PI=PI+1:GOSUB S5@:LOCATE 30,0: PRINT"# 
”;PT 
#30 LOCATE 15,1: INPUT ARTSCPTD 
440 LOCATE 15,3: INPUT OMSSCPT): IF LENCOM 
SSCPT))>15 THEN OMSSCPT)=LEFTSCOMSSCPID, 
15) 
45@ LOCATE 15,5: INPUT LEUSCPT): IF LENCLE 
USCPT)J>15 THEN LEUSCPT)=LEFTSCLEUSCPT), 
15) 
458 LOCATE 15,7: INPUT PRSSCPT) 
470 LOCATE 15,3: INPUT X$ 
480 IF LEFTSCXS,1)<>”-” AND LEFTSC(XS,1)< 
>”+” THEN 470 
430 AANSCPT)=STRSCUALCAANSCPTI) +VALCXSI 
:LOCATE 16,9:PRINT AANSCPT);ES 
500 LOCATE 15,11: INPUT ROLSCPT) 
518 LOCATE 16,13: PRINTCUALCPRSSCPT)) *VAL 
CAANSCPT) DD); ES 
520 LOCATE 15,15:INPUT BTWSCPT) 
530 LOCATE 16,17:PRINTCUALCPRSSCPTD)*VAL 
CAANSCPT)I*C1+CVALCBTWSCPT)J/180));ES 


540 LOCATE @,20:PRINT” GEGEVENS CO 
RRECT (JA/NEE)? E B 1520 
550 IF XS="N” TH 0 430 


568 RETURN 
570 REM venmnnnnnmmnnnnen 
* BESTEL-LIJST * 
vaamvevenenvanun 
580 GOSUB 1450: IF XS="P" THEN 620 
530 GOSUB 5S@:LOCATE 28,@:PRINT”DATUN : ” 
;DATS:FOR A=1 TO PT 
608 IF VALCAANSCAII<=VALCROLSCAI) THEN G 
OSUB 80 
518 NEXT A: RETURN 


5629 LPRINTCHRSC14); "BIJ TE BESTELLEN AR 


TIKELEN PER : ”;DATS:LPRINT:LPRINT:LPRIN 
rd 

638 LPRINT"ART.NR. OMSCHRIJVING 
LEVERANCIER INKOOP": LPRINT: LPRINT 


640 FOR A=1 TO PI 
55 IF VALCAANSCAII>VALCROLSCAI) THEN 57 
o 
660 LPRINT USING"#####”; VALCARTSCADD ; : LP 
RINT TABC11);OMSSCA); TABC30) ; LEUSCAD ; : LP 
RINT TABC47) ; USING" #####” ; VAL CPRSSCA) 
670 NEXT A:RETURN 
589 REN …………nvnnnnveonvnennnen 
* QVERZICKT OPURAGEN * 
…aavnennevsnnnTn... 
630 GOSUB 1450:1F X5="P" THEN 740 
700 GOSUB S@:LOCATE 28,0:PRINT"DATUN : ” 
;DATS:WRD=O:FOR A= 1 TO PT:WRD=WRD+VAL CA 
ANSCAI )*VALCPRSSCAID:NEXT A 
710 FOR A=1 TO PT:GOSUB 80 
720 IF ASCCIS)=27 THEN A=PI 
730 NEXT A:LOCATE @,19:PRINT”TOTALE WAAR 
DE CEX BIW)=";WRD:GOTO 1340 
740 LPRINT CHRSC14) ; ”"VOORRAAD-OVERZICHT 
PER : ”;DATS:LPRINT:LPRINT 
750 LPRINT "ART.NR. OMSCHRIJVING 
LEVERANCIER VOORRAAD INKOOP WAAR 
DE”: LPRINT: LPRINT 
760 IIL=O:FOR A=1 TO PT:WRD=VALCAANSCAI) 
“VAL CPRSSCA)) : TIL=TIL+WRD 
770 LPRINT USING"#####”; VALCARTSCAID ; : LP 
RINT TABC11);OMSSCA) ; TABC30) ; LEUSCA) ; : LP 
RINT TABC47) ; USING" #####” ; VALCAANSCAD) ; : 
LPRINT TABC56); USING” #####” ; VALCPRSSCA) 
);:LPRINT TABC64) ; USING" #####H” ; WRD 
780 NEXT A:LPRINI:LPRINT ”TOTAALWAARDE = 
"; TIL 
730 RETURN 
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890 REN …eenmennunsnnnnnnennnnnn 
* GEGEVENS WEGSCHRIJVEN * 
…vvnnnnnnnnvnn...... 
810 LINE INPUI”GEEF FILE-NAAM VOOR DATA 
CMAX. KAR.) _ CRETURNI = NIET SCHRIJUEN 
1 ”;FLS:IF FLS=”” THEN RETURN 
B20 FLS-FLS+DAIS:OPEN FLS FOR OUTPUT ASt 
1 
830 PRINI#1,PT 
840 FOR A=1 TO PT 
B50@ PRINT#1,ARTSCA) 
850 PRINT#1,OMSSCA) 
870 PRINI#1,PRSSCA) 
880 PRINT#1,AANSCAD 
B30 PRINT#1,LEUSCA) 
900 PRINT#1,ROLSCA) 
310 PRINT#1,BTWSCA) 
320 NEXT A: CLOSE#1 
930 CLS: FILES: PRINT: PRINT 
340 LINE INPUT "WELKE FILE WISSEN? CRETU 
RN] =NIET WISSEN”;KLS: IF KLS=”" THEN RE 
TURN 


950 KILL KLS:RETURN 
GED REN Tevanenmevnvnnnvnnen 
* GEGEVENS INLADEN * 
…annanvannvannT.... 
970 IF PI=O THEN 1000 
380 PRINT”HET GEHEUGEN BEVAT NOG GEGEVEN 
s. WILT U DIE OVERSCHRIJVEN 7 CJ 


9390 GOSUB 1520:IF X$="N" THEN RETURN 
1008 CLS: FILES: PRINT: PRINT 

1010 INPUT"WELKE FILE INLEZEN”;FLS 
1820 OPEN FLS FOR INPUT AS#1 

1030 INPUT#1,PT 

1249 FOR A=1 TO PT 

1059 INPUT#1,ARTSCA) 

1058 INPUT#1,OMSSCA) 

1870 INPUT#1,PRSSCA) 

1088 INPUT#1,AANSCAD 


1030 INPUT#1,LEUSCA) 

1108 INPUT#1,ROLSCAD 

111@ INPUT#1,BTWSCAD 

1120 NEXT A: CLOSE#1: RETURN 
1130 REM *…evennenenen 


“ MENU * 
„arnennennnen 


sr en KEUZEL TI 

JS T 

1150 PR … VOORRAAD VAN EEN ARTIKEL O 
PURAGEN" 

1150 PRINT:PRINT”2, VOORRAAD VAN EEN ART 
IKEL MUTEREN” 

117@ PRINT:PRINT”3. NIEUW ARTIKEL AAN UO 
ORRAAD TOEVOEGEN" 

1180 PRINI:PRINT"4, LIJST VAN TE PLAATSE 
N BESTELLINGEN" 

1198 PRINT:PRINT"S. OVERZICHT VAN HELE U 
OORRAAD OPVRAGEN" 

1200 PRINT:PRINT"6. VOORRAAD-GEGEVENS WE 
GSCHRIJVEN” 

1218 PRINT:PRINT"”7. VOORRAAD-GEGEVENS IN 
GEHEUGEN LADEN” 

1228 PRINT:PRINT"”8. ARTIKEL UIT BESTAND 
WISSEN” 

1230 PRINT:PRINI”9. STOPPEN MET HET PROG 
RAMMA” 

1240 CR=O:WS=D: UND=G 

1250 IS=INKEYS:IF IS=”” THEN 1250 

1250 IF I$="3” THEN CLS:GOSUB 800:CLS: EN 
D 

1270 IF I$<”1"” OR IS>"8” THEN 1250 

1289 IF PT=@ AND IS<>”3”AND IS<>”7” AND 
I$<>"”3” THEN GOSUB 1330:GO0TO 1140 

12390 I=VALCIS):CLS:O0N I GOSUB 220,300, 40 

0,570,580,800,360, 320: GOTO 1140 
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1399 REN *eenmnmnnnnnnnn 


1318 REM * FOUTMELDING * 


1320 REM ……………emenmenmenn 


1330 LOCATE @,20: PRINT” GEEN GEGEVEN 

S IN HET GEHEUGEN! 

1340 LOCATE @,21:PR Re TOETS CRETU 

RN] OM DOOR TE GAAN 

1350 IS=INKEYS:IF IS= THEN 1350 

1360 IF ASCCIS)<>13 AND ASCCIS)<>27 THEN 
1358 

137@ LOCATE @,20: PRINITCHRSC27)”K”: RETURN 

1380 REN *vvnnmennnnnvnnnnnennnn. 

1330 REM * GEHEUGEN VOL-MELDING * 

1400 REN »envensnennsennansvannnn 

1410 CLS:PRINT"HET GEHEUGEN ZIT VOL !”:P 

RINT:PRINT”1) ZET HET BESTAND OP DISK”:P 

RINT”2) STOP HET PROGRAMMA”: PRINT”3) TYP 
’RUN’ EN DRUK CRETURNJ”:PRINT”4) START 

EEN NIEUW BESTAND”: GOTO 1340 

1420 REN *vennmnansennvunsveneven 

1430 REM * KEUZE SCHERM/PRINIER * 

1HUD REM *eenwwennnennnnnnnnnn.... 

1450 PRINT"LIJST OP SCHERM OF PRINTER CS 

ZR) Pp” 

1450 XS=INKEYS:IF X$=""” THEN 1450 

1470 XS=FN USCXS): IF XE<>”"5” AND XS<>"P" 
THEN 14650 

1480 CLS: RETURN 

1499 REN *vennanaensvenen 

1500 REM * KEUZE JA/NEE * 

1519 REM *venesnnneveenen 

1520 XS=INKEYS:IF X$="”"” THEN 1520 

1530 XS=FN USCXS):IF X5<>"J” AND XS<>"N"” 
THEN 1520 

1540 LOCATE @,20:PRINTCHR$C27)”"K”: RETURN 


WISKUNDE--HULP 


Met dit programma kunt u vier dingen doen : een stelsel 
van simultane vergelijkingen oplossen, de wortels) van 
vierkants- vergelijkingen en derdemachts-vergelijkingen 
zoeken, en van een matrix de determinant en de inverse 
bepalen. 


Bij het opstarten van het programma door het commando 
“cun” drukt u op het cijfer van uw keuze, gevolgd door 
de CRETURNJ- toets. 


Optie C1J geeft u de mogelijkheid om een stelsel van 
maximaal 5 vergelijkingen met 5 onbekenden op te lossen. 
Dit stelsel wordt op het scherm gezet als een matrix van 
n*n elementen, die u een na een moet invullen, in de 
volgorde zoals het programma ze vraagt. Na het invullen 
van elke rij, wordt die op het scherm op de goede plaats 
gezet. Als de Invoer kompleet is, wordt de oplossing 
berekend, als die er is. Is het stelsel onoplosbaar, dan 
wordt dit gemeld. In beide gevallen wacht het programma 
tot u op een willekeurige toets drukt, waarna u terug 
dezelfde vier keuzes krijgt gepresenteerd. 


Optie C2) berekent de wortels) van een vierkants- 
vergelijking. Ook hier dient u de coëfficienten Eén na 
&6n in te voeren, en wacht het programma op een 
toets-indruk, 


Optie [3] berekent de wortels) van derdemachts- 
vergelijkingen. U voert de coëfficienten alweer &én na 
&&n in, en wacht verder rustig af tot u de oplossingen 
op het scherm krijgt. 


Optie C4J berekent de determinant en de (eventuele) 
inverse van een matrix van maximaal 5 rijen op 5 
kolommen. Is de matrix onoplosbaar, dan wordt dat netjes 
gemeld. 
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1 REN ssssusususessunsunsvnnusnnnnnen 
- - 


* WISKUNDE HULP df 


- « 
vanvvaonvuuvvevvenvennsennvnn..n 

10 KEY OFF:WIDTH4@:CLEAR 2500: COLOR 15,4 

‚4:CLS 

20 S$=SPACESCIHOI:PS=" , . . 


30 US=-"#HHH HH": GOTO 180 

49 AS="":DPS=Q 

50 IF NIG<>@ THEN DPS=1 

68 LOCATE X,Y:PRINTAS;” ” 

70 IF INKEYS<>"” THEN 70 

80 25=INKEYS:IF 2$=”"” THEN 80 

30 IF LENCAS)>LANG THEN 130 

109 IF 2$="," AND DPS<>1 THEN AS=AS+2$:D 

PS5=1:GOTO 60 

119 IF 2$="-"” AND A$=""” THEN A$=Z$:GOTO 

50 

128 IF 2$>="Q" AND Z$<="3" THEN AS=A$+25 
:GOTO 68 

138 IF ASCC2$)=13 AND A$<>”” AND A$<>”-" 
THEN LOCATE X,Y:PRINTAS;” "”:RETURN 

14@ IF ASCC2$)=8 AND LENCAS)>=1 THEN IF 
RIGHTSCAS,LENCAS))=","” THEN DPS=@ 

158 IF ASCC2$)=8B AND LEN CA$)>=1 THEN A$ 
=LEFTISCAS,LENCAS)-1):GOTO 6@ 

168 GOTO 60 

170 REN * vevennesnvecvdsenvennvn 
188 REM * hal u id 
1390 REN *vevnneunuusvenvernvvennve 

200 SCREEN @:COLOR 15,4,4:CLS 

218 FORA=11010:FORB=1T010:ACA,B)=O: NEXT: 

NEXT 

228 LOCATE3,3:PRINT"1 STELSEL U VERGELIJ 
KINGEN” ; TABC83) ; "2 VIERKANTSVERGELIJKING 

EN”;TABCB3);”3 DERDEGRAADS VERGELIJKINGE 

N”;TABCB3) ; "4 MATRIXBEWERKINGEN"; TABC123 
);”5 STOPPEN” 


230 A=FREC"") 

240 LOCATE 3,20:PRINT"DRUK EEN TOETS —>” 

250 Y=20:X=20:NIG=1: LANG=1 

250 GOSUB 40: IF A$>"5” THEN GOTO 260 ELS 

E KEUZE=VAL CAS) 

270 ON KEUZE GOSUB 300,1010,1180,1510,18 

30: GOTO180 

280 STOP 

297 REM*veunuunevenvsnnnvnnnvennvu... 

308 REM* SIMULTANE VERGELIJKINGEN “ 

IJ1J REMS*svenannvensssesesaacrvnTnnTÛ.. 

320 TS="STELSEL VAN VERGELIJKINGEN” 

330 MATRIX=@:CLS:LOCATE 3,1:PRINT T$:LOC 

ATE 3,5:PRINT"aC1l1)*x1l + aC12)*x2,. = b1 

”;LOCATE 3,6:PRINT"aC21)*x1 + al2e)*x2,. 
- be” 

340 LOCATE 3,7:PRINT P$ 

35@ LOCATE 3,8:PRINT P$:LOCATE 3,9:PRINT 
’aCnid®x1 + alne)*xe .. = bn” 

36@ LOCATE 3,15:PRINT”Hoeveel onbekenden 
(2-5) >" 

370 Y=15:X=31:NTG=1:LANG=1:GOSUB 40 

380 IF A$<”2” OR AS>”5” TKEN 370 

330 N=VALCAS) 

400 MX=N+1:IF MAIRIX > @ THEN MX=2*N 

410 CLS:LOCATE 3,0:PRINT TS 

420 X=12:NIG=O: LANG=5 

430 IF MATRIX=@ THEN FOR J=1 TO N:JS=RIG 

HISCSIRSCJ),1):LOCATE 6*CJ-1),3:PRINT"x” 
;JS:NEXT J 

44@ FOR I=1 TO N:1IS=RIGHTSCSIRSCI),1):FO 

R J=1 TO N:JS=RIGKTSCSIRSCJ), 1D 

450 LOCATE 6*(J-1),3+2*I:PRINI"aC”;1IS;JS 
„mjn 

5 

4560 NEXT J: IF MAIRIX=@ THEN LOCATE 5*CJ 

=1),3+2*I:PRINT”b”; IS 

470 NEXT I 

480 FOR I=1 TO N:IS=RIGHTSCSTRSCI),1) 

490 UP=N+1:IF MATRIX=1 THEN UP=N 

500 FOR J=1 TO UP: JS=RIGHTSCSTRSCJ), 1D 

510 IF J<= N THEN LOCATE 3,C15+J):PRINT"” 
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ac”; 


520 
530 
540 
550 
5560 
570 
580 
530 
500 
518 
520 
530 
540 
550 
550 
570 
580 
650 
700 
718 
720 
730 
740 
758 
760 
770 
780 
730 
800 
810 


15; JS; ”)=”: GOTOS30 

LOCATE 3,15+J:PRINI” b”;1$;"=” 
Y=15+J:GOSUB 40 

ACI, J=VALCAS) 

NEXT J 

LOCATE @,15:PRINI 5$;S55 

GOSUB 870:NEXT 1 

IF MATRIX=1 THEN GOSUB 1570 

IF MATRIX=1 THEN IF DET=@ THEN 1840 
FOR I=1 TO N 

PIU=ACI, DD 

IF PIU=@ THEN S10 

FOR J=1 TO MX 

ACI, JI=ACI, JD /PIU 

NEXT J 

FOR K=1+1 TO N 

PIU=ACK, DD 

FOR J=1 TO MX 


ACK, JI=ACK, II-ACI, JI*PIU 
NEXT J 

NEXT K 

NEXT I 

FOR I=N-1 TO 1 STEP -1 


FOR J=I+1 TO N 

PIU=ACI,J) 

FOR K=I+1 TO MX 
ACI,KI=ACI,KI-ACJ,KI*PIU 

NEXT K 

NEXT J 

NEXT I 

IF MATRIX=@ THEN FOR I = 1 TO N:LOCA 


TE 3,15+I:PRINT”x”;RIGHTSCSIRSCIJ,1);"=" 
;USING US;ACI,N+1):NEXT I:GOTO 1840 


Beg 
830 
840 
B50 
850 
870 
880 
HEN 


FOR I=1 TO N:FOR J=1 TO N 

ACI, JD=ACI, J+ND 

NEXT J:GOSUB 870:NEXT I 

PRINT: PRINT" inverse” 

GOTO 1840 

LOCATE @,2*1+3:PRINT SPACES(40) 

FOR K=1 TO UP:IF ABSCACI,KD)<1E-O3 T 
ACI,K)=@ 


839 NS=STRSCACI,KIJ+" "iNS=LEFTSCNS, 
6) 

300 LOCATE 6*CK-1),2*I+3:PRINT NS:NEXT K 
: RETURN 

310 NW=G 

320 IF MAIRIX=1 THEN 960 

930 FOR P=I+1 TO N 

340 IF ACP,I)D<>@ THEN NW=P 

950 NEXT P 

350 IF NW=@ THEN LOCATE 3,16:PRINT"onopl 
osbaar”:GOTO 1840 

370 FOR M=1 TO N+1:TEMP=ACI,MD:ACI,MD=AC 
NW ‚MD : ACNW,MD=TEMP: NEXT M 

389 PIV=ACI, ID 

390 GOTO 630 

1990 REN *vvevvaunevvonvavavannverennen 

1018 REM * UIERKANTSUERGELIJKINGEN * 

1920 REN *v…eusveenveenvvenven 
1039 CLS:LOCATE 3,1:PRINT"UIERKANTSVERGE 
LIJKING”:LOCATE 3,5:PRINT"ax°2 + bx + c 

= 0 

1040 Y=I:X=7:NIG=@: LANG=6: LOCATE 3,9: PRI 
NI"a= "”: GOSUB 4@: A=VALCAS) 

1850 IF A=@ THEN GOTO 1040 

1058 Y=11:LOCATE 3,11:PRINT"b= ":GOSUB 4 
@: B=VALCAS) 

1070 Y=13:LOCATE 3,13:PRINI”c= ”:GOSUB 4 
@: C=VALCAS) 

1080 B=-B/2/A:D=B*B-C/A 

1039 IF D=@ THEN 1130 

1100 IF D>@ THEN 1150 

1110 Y=SORC-D) 

1128 LOCATE 3,17:PRINT"Reëel deel: ”;USIN 
G U$;B:LOCATE 3,19:PRINT"”Imaginair deel: 
t”;USING U$;Y:GOTO 1160 

113@ LOCATE 3,17:PRINT"”gelijke wortels: ” 
;USING U$S;B 

1140 GOTO 1150 

115@ LOCATE 3,17:PRINT”Reëel:”;USING U$; 
B+SQRCD): LOCATE 3,18:PRINT”Reëel: ”;USING 
U$; B-SQRCD) 
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1160 GOTO 1840 
1178 REM …. …nnnenennnnesnnnn nn... 
1180 REM * VERGELIJKINGEN 3DE GRAAD ** 
1190 REM Kadhdhahaedheedieathathnahinaheehheahsehsehinaheahedeehsateeheohksoeadiedhecinathaad 
1209 CLS: LOCATE 1,3:PRINT"VERGELIJKING 
UD 3DE GRAAD”:LOCAIE 3,5:PRINT"ax”3 + bx 
“e+ cx +d= 0" 

1210 Y=3:X=7:NIG=O: LANG=6: LOCATE 3,8:PRI 
NI”a="”:GOSUB 40:A=VALCAS): IF A=@ THEN 12 
10 

1220 Y=10:LOCATE 3,Y:PRINT"”b=":GOSUB 40: 
B=VAL CAS) 

1230 Y=11:LOCATE 3,Y:PRINT”c=":GOSUB 49: 
C=VAL CAS) 

1240 Y=12:LOCATE 3,Y:PRINT”d=”:GOSUB 49: 
D=UAL CAS) 

1250 B=B/A/3:C=C/A: D=D/A 

1259 A=C/3-B'2 

1270 E=D-B*C+2*3°3 

1280 H=4*A"3+E"2 

12390 IF ABSCH)<1E-07 THEN 1450 

1300 IF H>@ THEN 1390 

1310 F=2*SQRC-A) 

1320 G=ACSCE/C2*A*SORC-AI/3 

1330 A=ASNC1D : E=ASNC.5) 

1340 C=F*SINCA-G) : D=-F*SINCE+G) 

1350 I=-F*SINCE-G) 

1350 C=C-B:D=D-B: 1=1-B 

1370 LOCATE 3,16:PRINT"Reëel: ”;USING US; 
C:LOCATE 3,17:PRINT”Reëel:”;USING US;D:L 
OCATE 3,18:PRINT”Reëel: ”;USING US; I 

1380 GOTO 1840 

1390 H=SQRCH) :F=.5*CH-E) :G=-.5*CH+ED:H=l 
73 

1400 F-ABSCF)“H*SENCFD 

1410 G=ABSCG) “H*SGNCG) : H=.5*SQRC3) 

1420 LOCATE 3,15:PRINI”Reële wortel: ”;US 
ING U$;F+G-B 

1430 LOCATE 3,17:PRINT”Reëel deel: ”;USIN 
G U$S;-.5*CF+G)-B 

1440 LOCATE 3,18: PRINT” Imaginair:+”;USIN 


G U$S;H*ABSCF-G):GOTO 1840 

1450 IF ABSCA)<1E-07 THEN LOCATE 3,16:PR 
INT”driedubbel: ”;USING U$S;-B:GOTO 1840 
1450 F=-ABSCC.5*E)" CC1/3)*SGNCEDDD) 

1470 LOCATE 3,16:PRINT"Reëel:”;USING US; 
2eF-B 

1480 LOCATE 3,17:PRINT"Gelijke wortel: "; 
USING U$S;-F-B 

1490 GOTO 1840 

1500 REM *vesenenenenen 

1518 REN * MATRIX hed 

1520 REN veesunannevenn 

1530 CLS:MATRIX=1: T$="MATRIXBEWERK INGEN" 
1549 LOCATE 3,1:PRINTTS:LOCATE 3,8:PRINT 


"aCl1) aCl2) .. aCln)”:LOCATE 3,9:PRI 
NT”aC21) aC22) . aC2n)”:LOCATE 3,10: 
PRINT”. . «… _…”:LOCATE 3,11:P 
RINT"aCln) aC2@n) .…. aCnn)” 


1550 LOCATE 3,4:PRINT"Inverse en Determi 
nant”:LOCATE 3,5:PRINT”van een n*n matri 

xn 

1560 GOTO 360 

1578 REM ** DETERMINANT ** 

1588 FOR I=1 TO N:FOR J=1 TO N 

1598 ACI,J+ND=ACI, JD 

1500 NEXT J:NEXT I 

15618 DET=1 

1620 FOR M=N TO 2 STEP-1 

1539 P=ACM,M+N) 

1540 IF P=@ THEN 1760 

1650 FOR I=1 TO M-1 

1550 Q=ACI,M+ND/P 

1578 FOR J=I TO M 

1588 ACI, J+ND=ACI, J+ND-Q*ACM, JN) 

1630 NEXT J 

1700 NEXT I 

1718 NEXT M 

1720 FOR I=1 TO N:DET=DET*ACI, I+N): FORJ= 
1 TO N:ACI,J+N)=B:NEXT J:ACI,I+N)=1:NEXT 
T 

1730 LOCATE 3,17:PRINT"Determinant =”;US 
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ING US; DET 


1740 
Geen 
1758 
17508 
1770 
1788 
17908 
1800 


IF DET=@ THEN LOCATE 3,18:PRINT”-> 
Inverse” 

RETURN 

NW=@: FOR F=1 TO M-1 


IF ACF,M+ND<>@ THEN NW=F 

NEXT F 

IF NW=@ THEN DET=@:GOTO 1720 

FOR F=1 TO M:ACM,F+ND=ACM, F+ND+ACNW 


‚F+ND:NEXT F 


1818 
1820 
1830 
1840 
1850 
J OM 
1850 
1870 


P=ACNW, M+ND 

GOTO 1650 

CLS: END: RETURN 

AS="":IF INKEYS<>"” THEN 1840 
LOCATE @,21:PRINT”>>>> DRUK CRETURN 
DOOR TE GAAN <<<<” 

IF INKEYS=""” THEN 1860 

RETURN 


MORSE TRAINER 


Onder de grote groep van MSX-gebruikers treft men ook 
velen aan die naast hun computer, de radio als hobby 
hebben. De morse-berichten die men kan ontvangen zijn 
niet altijd duidelijk voor de beginnende luisteraar 
Morse is nog steeds een veel gebruikte communicatie-taal 
en juist voor de beginner heb ik dit morse-programma 
geschreven. Het is een programma met vele mogelijkheden 
om Uzelf te bekwamen in mors: 


Opgemerkt dient te worden, dat U Uw MSX op een TV of op 
een monitor met geluid moet aansluiten, voor 
correcte werking van het programma. 


Als het programma opgestart is, verschijnt het hoofdmenu. 
Beginners raad ik om de diverse opties in chronologische 
volgorde af te werken. De commando's zijn duidelijk op 
het scherm aangegeven. Steeds wordt de L[ESCJ-toets 
gebruikt om terug te keren naar het hoofdmenu. 


Omdat een morsesleutel niet eenvoudig is te imiteren op 
het toetsenbord, heb ik gekozen voor de twee karakter 
waaruit elk morseteken is opgebouwd nl. de *.” en 
de punt en streep. 


Dus als U de A hoort en U moet dit in morse intikken 
teen van de tests) dan toetst U achtereenvolgens …— en 
daarna LRETURNJ; zo eenvoudig is dat. 


Bij woorden heb ik gekozen voor het letter voor letter 
intikken van de morsetekens. Na elke letter toetst U dan 
ERETURNI 


Door veel oefening en vooral goed luisteren zult U 
spoedig in staat zijn de meeste tekens te herkennen. Als 
U alles foutloos herkent en vice versa kunt vertalen, 
dan begint U aan de tests. 


U zult bemerken dat U met dit programma vele mogeli jkhe- 
den heeft om Uzelf te bekwamen in morse. 


Rest mij U veel volharding toe te wensen, succes is dan 
verzekerd. 
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TERMINAL SOFTWARE MORSETRAINER W1,d 


KEUZE MENU 


mz 
[1J....MORSE TEKENS OVERZICHT 
| LETTERS OEFENEN C4-4) 
[3]... HOORDEN LEREN HOREN 
[4J....TEST 1 WOORDEN LEREN 
[5]. TEST 2 VERTALEN IM MORSE 
LE]. STOPPEN MET MORSETRAINER 


TOETS UW KEUZE IN 
TERMINAL SOFTWARE MORSETRAINER Wi,G 


ZET OOK HET VOLUME WAN UW TU OPEN 
ALLEREERST HET ALFAEET 


ZET TOTMS HD 
MICHEL ANDD TD 


DRUK EEN TOETS VOOR WERWOLG 


10 REN vvevvenuvsvevssnvennveenvennn... 


** morse-trainer U1.@ MSX .. 
K enheheeheeheehehnehaheehnoheeheehechaaecheheehsehshehseheehehsehchehsal 
2@ SCREEN @:KEYOFF:WIDTH 4@ 
30 CLEAR 1000 
4@ DIM ASCHB),MSCHE), PSC2),BSCID 
50 T$="TERMINAL SOFTWARE MORSETRAINER 
Ui.” 
60 T1S=STRINGSC339,"-") 
70 RESTORE3350 
88 FOR N=1 TO 48:READASCN),MSCN):NEXT N 
90 CLS:PRINTTS:PRINT T1S 
108 LOCATE 10,5: PRINT "KEUZE MENU” : LOCATE 
10,5:PRINT"=. 
118 LOCATE 5,8:PRINT"C1J....MORSE TEKENS 
OVERZICHT” 
128 LOCATE 5,10:PRINT"C2J....LETTERS OEF 
ENEN C1-4)" 
13@ LOCATE 5,12:PRINT"C3J....WOORDEN LER 
EN HOREN" 
14@ LOCATE 5,14:PRINT"C4J.,,.TEST 1 WOOR 
DEN LEREN” 
15@ LOCATE 5,16:PRINT"CSJ....TEST 2 VERT 
ALEN IN MORSE” 
168 LOCATE 5,18:PRINT”C6J....STOPPEN MET 
MORSETRAINER” 
178 LOCATE 5,22:PRINT”TOETS UW KEUZE IN” 
188 QS=INKEYS:IF Q$=""” THEN 180 
190 IF Q$<”1"” OR Q$>”6” THEN 180 
200 Q=VALCQS):ON Q GOTO 24569,220,1110,28 
80,3110, 3720 
218 GOTO 218 
220 CLS:PRINT T$:PRINT T1S 
23® LOCATE S5,4:PRINT"LETTERS OEFENEN" 
240 LOCATE 5,7:PRINT"C1J..LETTERS INTOET 


SEN EN LUISTEREN WAT HET IN MOR 
SE IS" 

250 LOCATE S5,10:PRINT"C2J..LETTER INTOET 
SEN ‚DAN INVOEREN WAT HET IN MO 


RSE IS” 
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25@ LOCATE 5,13:PRINT”C3J..U KRIJGT EEN 
LETTER EN U MOET INTOETSEN WAT 
HET IN MORSE IS” 

27@ LOCATE 5,16:PRINT"C4J..U KRIJGT EEN 
LETTER TE HOREN EN U MOET INT 
OETSEN WELKE LETTER DAT IS 


288 LOCATE 5,20: PRINT"CESCJ. ..MENU” 
23@ LOCATE S,22:PRINT”TOETS UW KEUZE C1, 
2,3 of 4) IN” 

300 OS=INKEYS:IF QS=""” THEN300 

310 IF ASCCQS)=27 THEN 30 

320 IF Q$<”1” OR QS>"”4” THEN 300 

330 IF Q$="1" THEN 370 

340 IF QS="2"” THEN 500 

350 IF Q$="3" THEN 770 

360 IF Q$="4" THEN 940 

370 vevenvescevvenven 


388 CLS:PRINTTS:PRINTT1S 

390 PRINT"LUISTERTEST” 

400 LOCATE S5,20:PRINT"DRUK EEN LETTERTOE 
IS EN LUISTER” 

#10 LOCATE S,22:PRINT"CESCJ=TERUG NAAR M 
ENU” 

#20 OS=INKEYS:IF QS="" THEN 420 

430 IF ASCCQS)=27 THEN 90 

440 QS-CHRSCASCCOS) AND 223) 

450 IF ASCCQOS)<5S OR ASCCQS)>I0 THEN H20 
350 FOR N=1 TO 48 

470 IF QS=ASCN) THEN LOCATE 5,12:PRINT A 
SCN) ,MSCN) ;SPACESCE) : GOSUB 2220 

HBO NEXT N 

430 GOTO +20 


509 REN vevevenvvevevense 


LETTER TEST 1 
vucvouuuuuvseen 
S51@ CLS:PRINTTS:PRINTITIS 
528 PRINT"”LEITERTEST 1” 
530 PRINT:PRINT”U TOETST EERST EEN LETTE 


R IN EN DAARNA MOET U DIE LETTER IN MOR 
SE GEVEN! ” 
540 LOCATE 5,20:PRINT"DRUK EEN LETTERTOE 
IS IN” 
S5@ LOCATE 5,22:PRINT”CESCJ=TERUG NAAR M 
ENU” 
56@ QOS=INKEYS:IF QS="" THEN 560 
570 IF ASCCQS)=27 THEN 90 
588 QS=-CHRSCASCCQS) AND 223) 
538 IF ASCCQS)<ES OR ASCCQS)>30 THEN 560 
620 LOCATE 5,12:PRINT QS 
618 LOCATE S5,20:PRINT SPACESC34) 
528 LOCATE 5,22:PRINT SPACESC34) 
538 FOR N=1 TO 48 
540 IF Q$=ASCN) THEN LOCATE 15,12: INPUT 
R$:GOTO 660 
650 NEXT N 
558 IF RS=MSCN) THENLOCATE 10,13:PRINT"P 
RIMA”:GOSUB 670:GO0TOS4@ ELSE LOCATE 10,1 
3: PRINT"”FOUT! OSUB 730:GOTO 630 
670 REM …esseaacnns 
GOED GEDAAN 
…sassaenses 
58® LOCATE 29,13:PRINT MSCN):GOSUB 2220 
630 LOCATE S5,12:PRINT SPACESC34) 
700 FOR Z=1 TO SOO:NEXT Z 
718 LOCATE 5,13:PRINT SPACESC34) 
720 RETURN 
730 REM vveveunveen 
FOUT GEDAAN 
…….. …... 
740 LOCATE S5,20:PRINT"PROBEER NOG EEN KE 
ER" 
75@ LOCATE 15,12:PRINT SPACESC24) 
756@ RETURN 
770 REM «« 
LETIER TEST 2 
…vuvessesnsn. 
780 CLS:PRINTIIS:PRINIT1S 
730 PRINT”U KRIJGT EEN LETTER EN U MOET 
DIE IN MORSE VERTALEN,” 
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800 BS-"ABCDEFGHIJKLMNOPORSTUUWXYZ” 

B19 R=RNDC-TIME)*26+1 

B20 RS-MIDSCBS,R, 1) 

830 LOCATE S,12:PRINT RS 

840 FOR N=1 TO 48 

B50 IF RS-ASCN) THEN LOCATE 15,12: INPUT 

QS:GOTO 870 

B52 NEXT N 

B78 IF QS=MSCN) THENLOCATE 10,13:PRINI”P 

RIMA”:GOSUB 670:GOTOB80 ELSE LOCATE 10,1 

3:PRINT"FOUT! ”:GOSUB 730:GOTO 840 

880 LOCATE 5,20:PRINT”DRUK CRETURNJ VOOR 

'N LETTER” 

830 LOCATE S5,22:PRINT”CESC1=TERUG NAAR M 

ENU” 

900 QS-INKEYS:IF Q$=”" THEN 900 

910 IF ASCCQS)=13 THEN 780 

920 IF ASCCQS)=27 THEN 90 

830 GOTO S00 

940 REM …envsennsnvens enn... 
EERST IN MORSE EN DAN INTOETSEN 
…unvennnns ennn nnn ennn nn 

850 CLS:PRINTTS: PRINTT1S 

3960 PRINT"LEITERTEST IN MORSE” 

870 PRINI”L U ISTER GOED” 

980 BS-"ABCDEFGHIJKLMNOPORSTUUWXYZ” 

990 R=RNDC-TIME)*26+1 

1000 RS-MIDSCBS,R, 1) 

1010 FOR N=1 TO 48 

1020 IF RS=ASCN) THEN GOSUB 2220: LOCATE 

15,12: INPUT Q$:GOTO 1040 

1030 NEXT N 

1040 IF QS=ASCN) THENLOCATE 10,13:PRINT” 

PRIMA”:GOSUB 670:GOTO1050 ELSE LOCATE 10 

„13:PRINT”FOUT! ”:GOSUB 730:GOTO 1010 

105@ LOCATE S5,20:PRINT”DRUK CRETURNJ VOO 

R 'N LETTER” 

1059 LOCATE 5,22:PRINT"CLESC1=TERUG NAAR 

MENU” 

1070 QS=-INKEYS:IF QS="" THEN 1070 

1080 IF ASCCQS)-13 THEN 350 


1030 IF ASCCQS)=27 THEN 90 

1100 GOTO 1070 

1118 REM weessesnns..... 
WOORD LEREN HOREN 
esasaussssaunsvn 

1120 CLS:PRINTTS:PRINTT1S: PRINT”WOORDEN 

LEREN”: PRINTT1S 

1130 LOCATE 5,8: PRINT"KEUZEMENU”: LOCATE 

5,9: PRINI”-------- ” 

1140 LOCATE 5,11:PRINI”C1J..LUISTEROEFEN 

ING 1” 

1150 LOCATE 5,13:PRINT"”C2)..LUISTEROEFEN 

ING 2” 

1158 LOCATE 5,15:PRINT"C3)..LUISTERIEST 

ie 

1170 LOCATE 5,17:PRINT"C4]..LUISTERTEST 

5. 

1180 LOCATE 5,19:PRINT"CESCJ. . MENU” 

1190 LOCATE 5,22:PRINT"TOEIS UW KEUZE C1 

=H) IN” 

1200 QS-INKEYS:IF Q$-"" THEN 1200 

1210 IF ASCCQS)=27 THEN 90 

1220 IF Q$<”1” OR QS>"4” THEN 1200 

1230 ON VALCQS) GOTO 1240,1400,1730,1970 

1240 REM vevssesvseven... 
LUISTEROEFENING 1 
esessesssevvovenen 

1250 CLS:PRINITS:PRINIT1S: PRINT"LUISTERO 

EFENING 1”:PRINI T1S 

1250 PRINT”BIJ DEZE OEFENING IS HET DE B 

EDOELING DAT U EEN WOORD INTOEIST EN D 

AARNA HOORTU HET WOORD IN MORSE” 

1270 LOCATE 5,10:PRINT"”GEEF EEN WOORD: ” 

1280 LOCATE 5,11:LINE INPUT B$ 

1230 LW=LENCBS) :C5="” 

1300 FOR N=1 TO LW 

1310 IF ASCCHIDSCBS,N,1))=32 THEN CS=CS+ 

» »,GOTO 1330 

1320 CS-CS+CHRSCASCCMIDSCBS,N,1)) AND 22 

3) 

1330 NEXT N 
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1340 QS-CS 
1350 GOSUB e280 
1350 LOCATE 2,22:PRINT"CESCJ=MENU CRET 
URN3=NOG EEN WOORD” 
1370 QS=INKEYS:IF Q$="" THEN 1370 
1380 IF ASCCQS)=27 THEN 90 
1390 IF ASCCQS)=13 THEN 1240 ELSE 1370 
1400 REM ……anvcasseonnnenn 
LUISTEROEFENING 2 
…ussvucvn. 
1410 CLS: PRINTTS: PRINIT1S: PRINT*LUISTERO 
EFENING 2”:PRINT T1S 
1420 PRINI"BIJ DEZE OEFENING IS HET DE B 
EDOELING DAT U EEN WOORD INTOEIST EN D 
AARNA HOORTU HET WOORD IN MORSE, DAARNA Ml 
AG U HET OOK EENS IN MORSE PROBEREN.” 
1430 LOCATE 5,10:PRINT"GEEF EEN WOORD: ” 
1440 LOCATE 5,11:LINE INPUT BS 
1450 LW=LENCBS):C$="” 
1450 FOR N=1 TO LW 
1470 IF ASCCMIDSCBS,N,1))=32 THEN CS=C$+ 
» »,GOTO 1490 
1480 CS-CS+CHRSCASCCMIDSCBS,N,1)) AND 22 
3) 
1430 NEXT N 
1500 QS=CS:D$="" 
1510 FOR O=1 TO LW 
1520 FOR N=1 TO 46: IF MIDSCQS,O, 19=ASCND 
THEN DS=DS+MSCN) 
1530 NEXT N 
1540 NEXT O 
1550 GOSUB 2280 
1560 LOCATE 5,14:PRINI” ”‚” ” 
1570 LOCATE 2,20:PRINT”NU U DIT WOORD IN 
MORSE” 
1580 LOCATE 2,22:PRINT"LETIER VOOR LETTE 
R SUP.” 
1599 LOCATE 5,16:PRINT SPACESC10) 
1600 us="" 
1510 FOR N=1 TO LW 
1520 LOCATE 5,14:PRINT SPACESC10) 


1538 LOCATE 5,14:LINE INPUT B$ 
1540 WS=-WE+B5 
1550 NEXT N 
1668 IF WS=-D$ THEN LOCATE S5,16:PRINT"PRI 
MA !11”:GOTO 1670 ELSE LOCATE 5,16:PRINT 
“FOUT |11”:GOTO 1558 
1578 LOCATE 2,20:PRINT SPACESC36) : LOCATE 
2,2e:PRINT SPACES(36) 
1588 LOCATE 2,22:PRINT”CESCJ=MENU CRET 
URNJ=NOG EEN WOORD" 
1590 QS=INKEYS:IF QS="”” THEN 1690 
1700 IF ASCCQ$)=27 THEN 90 
1718 IF ASCCQS)=13 THEN 1400 ELSE 1690 
1728 GOTO 1720 
1730 REM vvsssveuunuun 
LUISTERTEST 1 
vuenvevonnven 
1740 CLS:PRINTIS:PRINIT1S:PRINT"”LUISTERT 
EST 1”:PRINT T1S 
1750 PRINT"DE COMPUTER KIEST EEN KORT WO 
ORD EN U MOET DAT WOORD IN MORSE GEVEN 
1750 RESTORE 3530 
1778 R=INTCRNDC-TIME)*45+1): IF R>45 THEN 
1770 
1780 FOR N=1 TO R:READ B$S:NEXT N 
1790 LOCATE 2,12:PRINT"HIER KOMT EEN WOO 
RD, LUISTER GOED!” 
1880 LOCATE 5,14:PRINT B5 
1810 QS$-B$:GOSUB 2370 
1820 LOCATE 2,20:PRINT”NU U DIT WOORD IN 
MORSE" 
1830 LOCATE 2,22:PRINT"LETTER VOOR LETTE 
R SUP," 
1840 LOCATE 5,16:PRINT SPACESC10) 
1850 WS="" 
1850 FOR N=1 TO LENCQS) 
1870 LOCATE 5,14:PRINT SPACESC10) 
1888 LOCATE 5,14:LINE INPUT B$ 
1830 WS=-WE+BE 
13900 NEXT N 
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1818 IF WS=DS THEN LOCATE S,16:PRINT"PRI 
MA !11”:GOTO 1928 ELSE LOCATE 5,16:PRINT 
“FOUT |!11”:FOR ZX=1 TO 1000:NEXT ZX: GOTO 
1840 
1328 LOCATE 2,20:PRINT SPACESC36): LOCATE 
2,22:PRINT SPACESC36) 
1930 LOCATE 2,22: PRINT”CESCJ=MENU CRET 
URNJ=NOG EEN WOORD" 
1340 QS=INKEYS:IF Q$="" THEN 1940 
1358 IF ASCCQS)=27 THEN 90 
1950 IF ASCCQ$S)=13 THEN 1730 ELSE 1940 
1370 REN sveuveuvveuven 
LUISTERTEST 2 
vaonvvevsenen 
1980 CLS:PRINITS:PRINTT1S:PRINT"LUISTERT 
EST 2”:PRINT T1$ 
1930 PRINT"DE COMPUTER KIEST EEN LANG WO 
ORD EN U MOET DAT WOORD IN MORSE GEVEN 
„ 


2000 RESTORE 3630 

2018 R=INTCRNDC-TIME)*156+1): IF R>16 THEN 
2818 

2220 FOR N=1 TO R:READ BS:NEXT N 

2038 LOCATE 2,12:PRINT"HIER KOMT EEN WOO 
RD,LUISTER GOED! ” 

2040 LOCATE 5,14#:PRINT B&S 

2050 QS-BS:GOSUB 2370 

2958 LOCATE 2,20:PRINT"NU U DIT WOORD IN 
MORSE" 

2070 LOCATE 2,22:PRINT"LETTER VOOR LETTE 
R SUP,” 

2088 LOCATE S,16:PRINT SPACESC10) 

2030 ws="" 

2128 FOR N=1 TO LENCQS) 

2118 LOCATE 5,14:PRINT SPACESC10) 

2120 LOCATE 5,14:LINE INPUT B& 

2130 WS=-WS+B5 


2140 NEXT N 
2150 IF WS=D$ THEN LOCATE S5,16:PRINT"”PRI 
MA !11”:GOTO 2150 ELSE LOCATE 5,16:PRINT 


“FOUT !!1”:FOR ZX=1 TO 1000:NEXT ZX:GOTO 


2080 


2158 


LOCATE 2,20:PRINT SPACESC36): LOCATE 


2,22:PRINT SPACESC36) 


2170 


LOCATE 2,22:PRINT”CESCJ=MENU CRET 


URNJ=NOG EEN WOORD" 


2180 
2180 
2200 
2210 


eeeg 
2230 
ee+0 


QS=INKEYS: IF QS="" THEN 2180 

IF ASCCQS)=27 THEN 90 

IF ASCCQS)=13 THEN 1970 ELSE 2180 

REM …vvanesasevenens ……. 
MORSE STRING IN BEEPS OMZETTEN 
venvonvvoensessvennw.. 

LL=LENCMSCN) 

FOR M=1 TO LL 

IF MIDSCHSCND,M,1)=",” THEN PLAY”U1 


50SL32B” ELSE PLAY"U1S50SL4B" 


2250 
2260 
2270 
2280 


ee230 
2300 
2318 


FOR P=1T10100:NEXTP 
NEXT mn 
RETURN 


REM vvevevevvvnven 


WOORD IN MORSE 
veneneeevensen 
WL=LENCQS) 
FOR U=1 TO WL 
FOR N=1 TO 48 


2328 IF MIDSCQOS,U,1)=ASCN) THEN LOCATE 5 
‚14:PRINT ASCN),MSCN); ” ”;GOSUB 22 
2330 NEXT N 
2340 FOR X=1TO250:NEXT X 
2350 NEXT U 
2358 RETURN 
2370 REN vevuneneeuvenvvensn. 
WOORD IN MORSE VOOR TEST 
vesosevvuuveensenenvenen 
2380 WL=LENCOS):DS="" 
2330 FOR V=1 TO WL 


2400 
2410 


FOR N=1 TO 48 
IF MIDSCQOS,U,1)=ASCN) THEN D$=DS$+M$ 


CN):GOSUB 2210 


2420 
2430 
2440 


NEXT N 
FOR X=1TO250:NEXT X 
NEXT U 


75 


76 


2450 RETURN 


2469 REN *eevnvavevavonvenvennn 


MORSETEKENS OVERZICHT 
vecvunsuuuvunvnnnnnen 
2470 CLS:PRINT TS:PRINTT1S 
2480 PRINT”ZET OOK HET VOLUME VAN UW TU 
OPEN” 
2430 PRINT:PRINT"ALLEREERST HET ALFABET” 
2500 BS="ABCDEFGHIJKLMNOPARSTUUWXYZ" 
2e51® X=5:Y=6 
2520 FOR U=1 TO 26 
2530 FOR N=1 TO 48 
2548 IF MIDSCBS,U,1)=ASCN) THEN LOCATE X 
‚Y:PRINT ASCN):LOCATE X+3,Y:PRINT MSCN): 
GOSUB 2220 
2550 NEXT N 
2560 Y=Y+1:IF Y=20 THEN Y=6:X=25 
2570 FOR 2=1T0500:NEXT 2 
2580 NEXT U 
25390 LOCATE 5,22:PRINT”DRUK EEN TOETS VO 
OR VERVOLG" 
2500 IF INKEYS="" THEN 2500 
25610 CLS:PRINT TS:PRINTTIS 
2520 PRINT:PRINT”NU DE CIJFERS" 
2530 B5-"Q123456789" 
2540 X=5:Y=6 
2550 FOR U=1 TO 10 
25560 FOR N=1 TO 48 
2670 IF MIDSCBS,U,1)=ASCN) THÊN LOCATE X 
‚Y:PRINT ASCN):LOCATE X+3,Y:PRINT MSCND: 
GOSUB 2220 
2580 NEXT N 
2590 Y=Y+1:IF Y=20 THEN Y=6:X=25 
2700 FOR 2=1T050O:NEXT 2 
2718 NEXT U 
2720 LOCATE S5,22:PRINT"DRUK EEN TOETS VO 
OR VERVOLG” 
2730 IF INKEYS="" THEN 2730 
2740 CLS:PRINT TS:PRINTT1IS 
2750 PRINT:PRINT”NU DE LEESTEKENS” 
2760 B5="'(D#+,-,/:=P" 


2778 X=5:Y=6 

2788 FOR U=1 TO 12 

2730 FOR N=1 TO 48 

2800 IF MIDSCBS,U,12=ASCN) THEN LOCATE X 
„Y:PRINT ASCN):LOCATE X+3,Y:PRINT MSCN): 
GOSUB 2220 

2818 NEXT N 

2820 Y=Y+1:IF Y=20 THEN Y=6:X=25 

2830 FOR 2=1T0500:NEXT 2 

2840 NEXT U 

2850 LOCATE S5,22:PRINT”DRUK EEN TOETS UO 
OR MENU” 

2860 IF INKEYS="" THEN 2860 

2879 GOTO 90 

28809 REM sene TEST 1,1 eeen 

28390 CLS:PRINTIS:PRINTIT1IS:PRINT"IEST 1": 
PRINT T1S 

2300 PRINT"DE COMPUTER KIEST EEN WOORD O 
F GETAL EN U MOET DAT WOORD IN MORS 
E GEVEN.” 

2910 RESTORE 3530 


2320 R=INTCRNDC-TIME)*70+1): IF R>70 THEN 


2320 
2930 FOR N=1 TO R:READ BS:NEXT N 
2340 LOCATE 2,12:PRINT”HIER KOMT EEN WOO 
RD,LUISTER GOED! ” 
2350 QS=B5:GOSUB 2370 
2360 LOCATE 2,20:PRINT"NU U DIT WOORD IN 
MORSE" 
2370 LOCATE 2,22:PRINT"LETTER VOOR LETTE 
R SUP,” 
23988 LOCATE S,14:PRINT SPACESC10) 
2930 ws="" 
3000 FOR N=1 TO LENCQS) 
3018 LOCATE 5,14:PRINT SPACESC10) 
3028 LOCATE S5,14:LINE INPUT BS 
3030 WS=-WS+BE 
3040 NEXT N 
3050 IF WS=D$ THEN LOCATE S,16:PRINT"PRI 
MA 111”:GOTO 396% ELSE LOCATE S,16:PRINT 
“FOUT !!!”:FOR ZX=1 TO 1000:NEXT ZX:GOTO 


77 


78 


2380 

3060 LOCATE 2,20:PRINT SPACESC36) : LOCATE 
2,e2e2e:PRINT SPACESC36) 

3070 LOCATE 2,22: PRINT"CESCJ=MENU CRET 

URNI=NOG EENS" 

3080 OS=INKEYS:IF QS="” THEN 3080 

3098 IF ASCCQS)=27 THEN 30 

3100 IF ASCCQS)=13 THEN 2880 ELSE 3080 
3110 REM seus TEST 1,2 eeen 

3128 CLS:PRINTTS:PRINTI1S:PRINT"TEST 2”: 
PRINT T1$ 

3130 PRINT"DE COMPUTER KIEST EEN WOORD O 
F GETAL EN U MOET DAT WOORD IN MORS 

E GEVEN,” 

3140 RESTORE 3530 

3158 R=INTCRNDC-TIME)*70+1): IF R>7@ THEN 
3150 

3158 FOR N=1 TO R:READ BS:NEXT N 

317@ LOCATE 2,12:PRINT"HIER KOMT EEN WOO 

RD !”:LOCATE 5,14:PRINT B$ 

3180 Q$-B$:GOSUB 2370 

3139@ LOCATE 2,20@:PRINT"NU U DIT WOORD IN 
MORSE" 

3200 LOCATE 2,22:PRINT"LETTER VOOR LETTE 
R SUP,” 

3218 LOCATE S5,14:PRINT SPACESC10) 

3220 WS="" 

3230 FOR N=1 TO LENCQOS) 

324@ LOCATE 5,14:PRINT SPACESC10) 

325@ LOCATE 5,14:LINE INPUT B$ 

3250 WE=-WS+B5 

3270 NEXT N 

3280 IF W$=D$ THEN LOCATE 5,16:PRINT"PRI 
MA |11”:GOTO 3290 ELSE LOCATE S5,15:PRINT 
“FOUT !!1"”:FOR ZX=1 TO 1000:NEXT ZX: GOTO 
3210 

3230 LOCATE 2,20:PRINT SPACE$SC36): LOCATE 
e,‚ee:PRINT SPACESC36) 

3308 LOCATE 2,22: PRINT"CESCJ=MENU CRET 
URNJ=NOG EENS" 

3310 QS=INKEYS:IF QS="" THEN 3310 


3328 IF ASCCQS)=27 THEN 90 
3330 IF ASCCQS)=13 THEN 3110 ELSE 3310 
3340 END 


3350 REN veevenvveevvenvsenvsevvvnnnen 


…* de tekenset in morse se 
…nacavanee …envvenaen 


3368 DATA 
3370 DATA 
3380 DATA 
3330 DATA 
3400 DATA * 
3410 DATA 
3420 DATA 
3430 DATA 
3440 DATA 
PP em. 
3450 DAT: 
3460 DATA 
3470 DATA 
3480 DATA 
3430 DATA Q, 
3500 DATA U, 
3510 DATA X, 
ISL REM sv…vveee 
*« WOORDENSCHAT 1 TRAINER ** 
…esvaveonsscevsvvevervenen..n 
3530 DATA AARDE, APPEL, BOTER, KILO, POND 
3540 DATA MORSE,SOS, HALLO, KORT, LANG 
3550 DATA HIER,BIEP,BASIC, TABAK, VADER 
3550 DATA DRANK,CAFE, KOFFIE, THEE, BOEK 
3570 DATA WEER, ZON, REGEN, NACHT , DAG 
3580 DATA MSX,SEINEN, ANTENNE, RIT, PIT 
3590 DATA RCD,RADIO, RADAR, KLOK, GOLF 
3500 DATA AUTO,SLEUTEL, SLECHT, GOED, HALF 
3610 DATA MINDER, MEER, VOLUIT, GENOEG, TEST 


IGLD REN vvvvevverveevvevvvvvvvvnenne 


*« WOORDENSCHAT 2 TRAINER ** 
…evvaseuvesvvesnenv nn... 
3630 DATA SATELLIET, SCHOTELANTENNE 
3640 DATA SEINSLEUTEL, REDELIJK 
35650 DATA ONTVANGST, COMPUTER 


79 


80 


365% DATA MORSETEKEN, TELEUISIE 

3678 DATA IONOSFEER,STRATOSFEER 

3688 DATA DRAAGGOLF, DECIBEL 

3538 DATA TRANSISTORRADIO,CITIZENBAND 
3700 DATA KORTEGOLF,2 METERBAND 

3718 DATA 110,211,1234,9876,543,750, 398, 
400, 5875 

3728 CLS: END 


FILTERS BEREKENEN 


Met dit programma kunt u, uitgaande van een aantal 
beginwaarden, de componentwaarden voor drie soorten 
filters laten berekenen : een laagdoorlastfilter, een 
bandfilter en een hoogdoorlaatfilter. 


Om het programma te starten, drukt u gewoon FS in Crun). 
U ziet dan een “menu” met drie keuzemogelijkheden, Volg 
de aanwijzingen op het scherm. 


De vier daaropvolgende vragen krijgt u bij elk van de 
drie gekozen opties te beantwoorden. Na de vierde input 
gaat de computer aan het rekenen. Mocht u een 
onmogelijke schakeling proberen te ontwerpen, dan wordt 
u daarvan verwittigd, en kunt u opnieuw gegevens 
invoeren, 


Omwille van de praktische bruikbaarheid en leesbaarheid 
worden de waarden uwvitgedrukt in praktische eenheden 
Cpico-, nano-, micro- en eventueel milli-Farad, en 
Megohm, kilo-Ohm, of Ohm). Het wordt aan de gebruiker 
overgelaten om de waarden af te ronden naar de 
standaardwaarden uit een van de E-reeksen. 


Na de berekeningen wordt een tekening gemaakt op het 
grafische scherm, waarna de computer wacht op een van de 
toetsen : N voor nog een berekening, S om met het 
programma te stoppen, of CESC]J om een hard copy te 
maken. Dit laatste geldt natuurlijk alleen wanneer u een 
printer hebt, en een screendump-programma hebt 
ingeladen. Een zeer geschikt programma in machinetaal 
vindt u elders in dit boek. Dat programma werkt 
overigens voor alle schermen, dus ook voor tekst. 


De meeste input-Fouten worden opgevangen door een "ON 
ERROR” - Funktie. Die treedt in werking bij bepaalde 
combinaties van componenten, die samen bv. een deling 
door O genereren, of wanneer u bij een ‘input-vraag per 
ongeluk alleen de CRETURNI — toets indrukt. 
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BANDFILTER 
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REN memmen nnn 


20 REM * DIT PROGRAMMA BEREKENT DE hal 
30 REM * COMPONENTENWAARDEN VOOR EEN * 
40 REM * BANDFILTER, LAAG- OF HOOG- eed 
5@ REM * DOORLAATIFILTER, UITGAAND VAN * 
59 REM * DE FREKWENTIE, VERSTERKING, * 
78 REM * CAPACITEIT EN Q-FACTOR ke 
BO REM *wuunnennuuvenvvensnnennnnnnn.nn 


KEYOFF 

P=3.1415S9:ON ERROR GOTO 2040 

REM vunnvneennvennnuonnenvnnnvenenn. 
REN * HOOFDMENU - 
REM ……svenevsenassvscsnsaveennnenn. 
SCREEN @:CLS:PRINT TABC12); "WELK FIL 
WILT U” 

PRINT TABC132);"[13 _LAAGDOORLAAT” 
PRINT IAB(52);”C2)] _HOOGDOORLAAT” 
PRINT TAB(52);”[3] _ BANDDOORLAAT” 
PRINT TABC167);”DRUK HET CIJFER VAN 


Uw KEUZE” 


130 
30 

200 
210 
eea 
230 
240 
25@ 
250 
270 
280 
230 
300 
310 
320 
330 
340 
hd] 
350 


LS=INKEYS:IF L$<”1"” OR L$>"3” THEN 1 


LOCATE 9, C2*VALCLS) +2): PRINT" >” 
LOCATE@®, 13: PRINTCHRSC27) ; ”"K"” 

IF LS="”1"” THEN L$=”"LD":GOTO 280 

IF LS=”2"” THEN L$=”HD”:GOTO 460 

IF L$="3"” THEN L$="BF":GOTO 640 

REN *eennanuunvnannnnnnnnnnnn.n..….. 
REM *LAAGDOORLAATFILTER BEREKENEN * 
REM *eenvennnvonnvvvvvnnnnennnennnn. 
GOSUB 800 

C2=C 

Cl=CH*C*CAHIIJ/CB*B) 
R1=INICP/CH*A*PeFeC)) 
R2=INICP/C4*PeF*CeCA+1))) 

R3=A*R1 

IF C2<@ OR C1<@ OR R1<@ OR R2<O OR R 
THEN GOSUB 13920:GOTO 280 

GOSUB 380 


85 


84 


350 


PSETC@,0): PRINT#1, ”LAAGDOORLAATFILTE 


R VOOR”;F;”Hz”:PSETC40,8), 4: PRINT#H1, "Q=" 
;INTC1000/B)/1000; ” omi} 


370 
380 
330 
400 
410 
420 
430 
440 
450 
450 
470 
480 
430 
500 
510 
520 
0 
530 
540 


PSET CO,24):PRINI#1,”R1 =”;RI;R1S 
PSEIC128,24): PRINI#1,”R2 =”;R2;R2S 
PSETCO,32):PRINI#1,”R3 =”;RI; RIS 
PSETC128,32),4:PRINI#1,”C1 =”;C1;C1S 
PSETCO, 40), 4: PRINT#1,”C2 =”;C2;C2$ 
GOTO 900 

REM K ahaadeahaatheahsahksehakseheeheehsatisehsahsohsahshehsehsohsohsehsahsahsahsoksahsahsel 
REM *HOOGDOORLAAIFILTER BEREKENEN * 
REM …evvaaannveuensaenseeennnnenenn 
GOSUB 800 

C1=C 

C2=C 

C3=C/A 
R1=INTCB/CC2*P&F*C)*C2+C1/ADDDD 
R2=INTCCCA/H)+1D/ CB*2*P*FC)D 

IF C2<@ OR C1<@ OR R1<@ OR R2<0 OR R 
THEN GOSUB 1920:GOT0 460 

GOSUB 380 : 
PSETCO, 0): PRINI#1, "HOOGDOORLAAIFILTE 


R VOOR";F;”"Hz”:PSETC40,8) : PRINI#1, "Q="; 1 
NTC1000/B)/1000; ” a=”;A 


550 
550 
570 
580 
530 
500 
510 
620 
530 
540 
650 
550 
578 
680 
5390 


PSETCO,24):PRINI#1, "RI =”;RI;RIS 
PSETC128,24):PRINI#1, ”R2 =”;R2;R2S 
PSETCO, 32), 4: PRINI#1,”C1 =”;C1;C1S 
PSEIC128,32), 4: PRINI#1,”"C2 =”;C2;C2$ 
PSETCO, 40), 4: PRINT#1,”C3 =”;C3;C3S 
GOTO 300 

REM …nnvnnvaenvessnnnT... 
REM “BANDDOORLAAIFILTER BEREKENEN * 
REM …. nnn 
GOSUB 800 

C1=C 

C2=C 

R1=INTC1/CA*2*PeF*C*B)) 
RE=INTC1/CCC2/CB*B))-A)*2*PeF*C*B)) 
R3=INTC2/CB*2*PeF#C)) 


700 
<0 
710 
720 


IF C2<@ OR C1<@ OR R1<@ OR R2<@ OR R 
THEN GOSUB 1320:GOTO 640 

GOSUB S80 
PSETCQ,0) : PRINT#1, "BANDFILTER VOOR”; 


F;”Hz”:PSETCHO,8): PRINT#1, ”Q=”; INTC1000/ 
B)/1000; ” a"; A 


730 
740 
750 
760 
770 


PSETCO,24):PRINI#1, "RI =”;RI;RIS 
PSETC128,24):PRINI#1,”R2 =”;R2;R2$ 
PSETCO@, 32): PRINI#1, ”R3 R3;R3S 
PSEIC128,32),4:PRINI#1,”C1 =*;C1;C1S 
PSETCO,40),4:PRINT#1,"C2 =”;C2;C25 
GOTO 300 

REM …ensecnnvensnennnennnnennn nnen 
REM * _ ALGEMENE INPUT-ROUTINE . 
REM …ns.. …esvaasennnnn 


LOCATE 10,14: INPUT "FREKWENTIE IN Hz 


LOCATE 10,16: INPUT” CAPACITEIT IN F 
LOCATE 10,18: INPUT" KWALITEITSFACT, 


:B=1/B 

LOCATE 10,20: INPUT" VERSTERKING 
RETURN 

REN *ennnnnennnnenvennennnnnnnn..…... 


880 REM * STOPPEN OF DOORGAAN-ROUTINE * 
8390 REN *…nveevenvvenavevennennnnnn..n 
900 PSETC@,175):PRINI#1, ”NOG EEN BEREKEN 
ING : DRUK CNJ OM TE STOPPEN : DR 
UK CSJ” 

910 IS=INKEYS:IF IS="" THEN 3910 

320 IF CHRSCASCCISJAND223)="N" THEN S50@ 
930 IF CHRSCASCCISJAND223)="S" THEN 360 
S4@ GOTO 3910 

350 CLOSE#1:GOTO 140 


360 


END 


85 


86 


970 REN vennwwneuvenvennnnnnnnn nennen... 
988 REM * ROND AF NAAR ka, Ma E.D. hel 
ID REM eeen 
1009 RIS="n":R2S=RIS:RIS-RIS 

1018 IF R1/1000000!>1 THEN R1S=”Ma”:R1=I 
NTCR1/1000000! +.5) 

1820 IF R1/1000!>1 THEN R1S="ka”:RI=INTC 
R1/1000!+.5) 

1030 IF R2/1000008!>1 THEN R2$="Ma”:R2=I 
NTCR2/1000000! +.5) 

1040 IF R2/1000!>1 THEN R2$="ka”:R2=INTC 
R2/1000!+,5) 

1050 IF R3/1000000!>1 THEN R3$="Ma”:RI=I 
NTCR3/1000000! +.5) 

1050 IF R3/1000!>1 THEN R3$="kn”:RI=INTC 
R3/1000!+.5) 

1070 C1S="F":C2$="F":C3S="F" 

1088 IF C1<1E-OSTHEN C1$="pF"”:CI=INTCC1® 
1000000000000! +.5) 

1038 IF C1<1E-OSTHEN C1S="nF”:CI=INTCC1® 
1000000900! +5) 

1180 IF C1<1E-O3THEN C1$="yF":C1=INTCC1® 
1000000! +5) 

1118 IF C1<1THEN C1S="mF"”:C1=INTCC1*1000 
1+.5) 

1120 IF C2<1E-OSTHEN C2$="pF":C2=INTCC2* 
1000009000000! + .5) 

1130 IF C2<1E-OSTHEN C2$="nF”:C2=INTCC2* 
1000000008! + .5) 

1140 IF C2<1E-O3THEN C2$="yF":C2=INTCC2* 
1000000! +.5) 

1150 IF C2<1THEN C2$="mF"”:C2=INTCC2*1000 
1.5) 

1158 IF C3<1E-OSTHEN C3$="pF":C3=INTCC3® 
1000000000000! + .5 

1170 IF C3<1E-OSTHEN C3S="nF”:C3=INTCC3®* 
1000000000! +.5) 

1180 IF C3<1E-O3THEN C3$=”"yF"”:C3=INTCC3* 
1020008! +.5) 


11830 IF C3<1THEN C3S="mF”:C3=INTCC3*1000 
1.5) 

1200 IF C1$="F"” THEN C1=INTCC1*1900+,5)/ 
1000 

1210 IF C2$="F" THEN C2=INTCC2*1000+,5)/ 
1000 

1228 IF C3$="F" THEN C3=INTCC3*1000+.5)/ 
1900 
1239 REM *…vvseuvsnunsunvenvnnnnTennn 

1240 ING MAKEN ad 

1250 vacvvonenannenen 

1258 SCREEN 2:CLOSE#1:0PEN ”GRP:” FOR OU 
TPUT AS#1 

1270 LINECS5,159)-(233,1539) 

1288 LINE C199,123)-(239,123) 

1290 LINECSS,111)-C75,111):LINECB3,111)- 
C122,111):LINE C13@,111)-C159,111) 

1300 1.INEC103,63)-(206,63) : LINEC206, 53)- 
(205, 123) 

1318 LINEC103,159)-C103,139):LINEC103,13 
19-C103,32):LINEC183,84)-(193,654) 

1320 LINEC1S51,159)-C151,135):LINEC151,13 
5)-C159,135) 

1330 LINEC1IS1,111)-C151,90):LINEC1S51,82) 
=C151,63) 

1340 LINEC1S59,148)-C159,97):LINEC1S9, 37) 
=(139,123):LINEC19S,123)-C159, 148) 

1350 PSETC47,130), 4: PRINT#1, ” IN”: PSETCH7 
‚151),4:PRINT#1,”-"” 

1360 PSETC161,132),4:PRINT#1, ”+"”:PSETC16 
1,108), 4: PRINT#1,”-” 

1378 PSETC223,135):PRINT#1, "UIT” 

1380 PSETC102,1109):PSETC104,110): PSETC1O 
2,‚112):PSETC104,112) 

13390 IF L$="BF” THEN 1520 

1400 IF LS="HD"” THEN 1620 
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1410 
1420 
1430 
1440 
1450 
1450 
1470 
1480 
14390 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1530 
1500 
1618 
1520 
1538 
1540 
15508 
1560 
1570 
1580 
1590 
1708 
1710 
1728 
1730 
1740 


REM v…emnannsennsennnenmannnn 
REM * COMPONENTEN LAAGDOORLAAT * 
REM ……ennaanaunneoneunvannnnnnenn 
RESTORE 2000 

READ SX,SY,EX,EY:GOSUB 1790 

READ SX,SY,EX,EY:GOSUB 1790 

READ X1,Y1:GO0SUB 1880 

READ SX,SY,EX,EY:GOSUB 1790 

READ X1,Y1:GOSUB 1880 

RESTORE 1370:G0T0 1740 

REM …uauenesnnvnnenannn........ 
REN « COMPONENTEN BANDFILTER * 
REM …ensaasvennensnsnaannTnnnnn 
RESTORE 2010 

READ SX,SY,EX,EY:GOSUB 1790 

READ X1,Y1:GOSUB 1880 

READ SX,SY,EX,EY:GOSUB 1790 

READ X1,Y1:GOSUB 1840 

READ SX,SY,EX,EY:GOSUB 1790 
RESTORE 1980:G0T0 1740 

REM ……. …enacnanaacnnnn. …n. 
REM * COMPONENTEN HOOGDOORLAAT * 
REM …ennaneasvvaeasveenn nn... 
RESTORE 2020 

READ X1,Y1:GOSUB 1840 

READ X1,Y1:GOSUB 1880 

READ SX,SY,EX,EY:GOSUB 1790 

READ X1,Y1:GOSUB 1840 

READ SX,SY,EX,EY:GOSUB 1790 
RESTORE 19390 

REM …eenvennvsensssnnT... 
REM * BENOEM DE VIJF COMPONENTEN * 
REM …ecsasssanssenvnannsnnnnn. 


FOR N=1T0S:READ X,Y,AS:PSETCX,Y), 4: 


PRINT#1,AS:NEXIN 


1750 
1750 
1770 
1780 
1730 
1800 


RETURN 
REM *unvennmanenen anenvennnnnnn 
REN * TEKEN EEN WEERSTAND al 


REM *envnnnvenvenvunenvennnsnnnnnn 


LINECSX,SY)-CEX,EY), „BF 
RETURN 


1818 REM …nsseneensnsnnnnn nnn nennen nn 
1820 REM *TEKEN CONDENSAIOR VERTIKAAL * 
1830 REM …..... …annunvennTn.. 
1840 LINE CX1,Y1)-CX1+2,Y1+16), ,BF:LINEC 
X1+5,Y1D-CX1+7,Y1+15), „BF: RETURN 

1850 REM*venvveavaaacnvencvevennnnnnn 
1858 REM*TEKEN CONDENSATOR HORIZONTAAL* 
1870 REM*venvaenseesvvenvvennnennnnnnnn 
1889 LINE CX1,Y1)-(X1+16,Y1+2), ,BF:LINEC 
X1,Y1+5)-CX1+15,Y1+7), „BF: RETURN 

18399 REM …eevveevvevvvscvasevenTn 
1300 REM * _ SCHAKELING KAN NIET ! . 
1818 REM …nvancesasaansennsnnsn nnn … 
1920 FOR M=1 TO 5:LOCATE 8,22:PRINT”EJ O 
NMOGELIJKE SCHAKELING gj” 

1930 FOR N=1 TO 200:NEXT N:LOCATE B,22:P 
RINICHRSC27);”K":FOR N=1 TO 100:NEXT N:N 
EXT M:RETURN 

1940 REM ……nnsvensennenannn...... 
1950 REM *POSITIES VAN DE COMPONENTEN * 
1960 REM …unnnennansnananT nn... 
1970 DATA 63,35,”R1",87,63,”R3”,135,71,” 
C2”‚111,95,"Re”,B5,124,”"C1” 

1989 DATA 63,95,"R1”,87,53,”C2”,132,71,” 
R3”,111,95,”C1”,84,127,"R2” 

1990 DATA 63,35,"C1”,87,63,”C3”,135,71,” 
R2”,111,85,”C2”,87,127,"R1” 

2000 DATA 556,106,90,115,98,75,107,93,143 
‚82,114,105,138,115,95,132 

2010 DATA 65,106,90,115,35,84,146,75,155 
‚39,123,103,98,123,107,148 

2020 DATA 74,103,95,84,145,75,155,99,123 
‚103,38,123,107,148 
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2030 REN *evenannnnvvannensvernen 


2040 REM * ERROR-OPVANG ROUTINE * 


2050 REN *vvevannnennnnnvennnenen 


2060 FOR M=1 TO 
INPUT FOUT É 
2070 FOR N=l TO 


INTCHRSC27) ; ”K”: 


mn 

2080 IF L$="LD” 
2030 IF LS="HD” 
2100 IF LS="BF" 
2118 RESUME 100 


S:LOCATE 12,22:PRINT” EJ 


500:NEXT: LOCATE 12,22:PR 
FOR N=1T0O 100:NEXT:NEXT 


THEN RESUME 280 
IHEN RESUME 460 
THEN RESUME 640 


TIMER IC-SSS 


Met dit eenvoudige programma kunnen de electronici onder 
ons berekeningen op hun MSX uitvoeren voor de populaire 
Timer: de ICSS5. De berekeningen gelden voor monostabie- 
le- en astabiele- (multivibrator) werking. 


U kiest een aantal variabele waarden voor o.a. de uit- 
gangsfrequentie, de waarde van de condensator en het 
effect van de werkcyclus. 


Het programma berekent dan voor U de waarden van de te 
gebruiken weerstanden. 


Daarna krijgt U het principe-schema op het scherm. Als U 
dan ook nog gebruik maakt van het ’screendump’— program 
ma verderop in dit boek, dan kunt U met een simpele druk 
op de LESC]-toets deze tekening op papier krijgen. 
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TRIGGER PD 


PRUK EEN TOETS 


MOOR 


MENU 


10 REM vewennwenwnnnwnnnnnnnwanw en 
hedd TIMER IC 555 on 
Ehehiedahekedeeheksehiedeehehelsedeehehehaehaahsehaedechaehsehedechied 
20 CLS:KEYOFF:COLOR 15,4,4:SCREEN @:WIDT 
H 40 
30 T8="T ERM INA L SOFTWARE >>>ICS 
55” 
40 T1IS=STRINGSCHO, "—") 
50 T25="ICSSS TIMER MONOSTABIELE WERKING 


50 T35="ICSSS TIMER ASTABIELE WERKING” 
70 PRINT T$:PRINIT1S 

88 LOCATE 10,5:PRINT"M EN U” 

30 LOCATE 10,5:PRINT” ke 


109 LOCATE 1,3:PRINT”CMJ.....Monostabiel 
e Multi Vibrator” 
118 LOCATE 1,11:PRINT”CAJ.....Astabiele 


Multi Vibrator” 

128 LOCATE S5,22:PRINT”TOETS UW KEUZE IN 
CMJ of CAI” 

139 QS=INKEYS:IF Q$="”” THEN 130 

148 IF Q$=”M” OR QS=”m” THEN 160 

159 IF Q$="A” OR Q$="a” THEN 300 ELSE 13 
@ 

150 CLS:PRINT T$:PRINT T1$:PRINT T2$:PRI 
NT T1& 

170 LOCATE 1,6: INPUT"Vertraging Csec.):” 
Fe 

180 IF T<1E-03 THEN 170 

19@ LOCATE 1,8:INPUT"”C CuF) ”;C 

200 IF C<1E-03 THEN 190 

218 R=INTCCC1000*T)/C1.1*C))*100+.5)/100 
:LOCATE 1,18:PRINI"”R= ";R;” K"CHRSC234) 
22® LOCATE 1,22:PRINT”DE WAARDE VERANDER 
EN P CJ/ND” 

230 QS=INKEYS:IF QS=”” THEN 230 

240 IF Q$=”N" OR QS=”n” THEN 2650 

250 IF Q$="J" OR QS$="j” THEN 190 ELSE 23 
@ 

2560 GOSUB 510:GOSUB 930 
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270 PSETC31,183):PRINT#1,”DRUK EEN TOETS 
VOOR MENU” 

280 IF INKEYS="" THEN 280 

238 CLOSE#1: SCREEN @:CLS: RUN 

300 CLS:PRINT T$:PRINT T1S:PRINT T3$:PRI 

NT T1S 

318 LOCATE 1,6: INPUT"Uitgangsfrequentie: 
CHZ):”;F 

328 IF F>200000! THEN 310 

330 LOCATE 1,8: INPUT”Procent werkcyclus( 
>50%):”;D:D=D/100 

340 IF D<.STHEN 330 

350 LOCATE 1,18:INPUT"C CuF) ”;C:C=C*IE- 
a5 

3560 IF C<1E-O3 THEN 350 

370 RA=C2*D-1)/CLOGC2I*C*F 

380 RB=C1/C2*CLOGC2)*C*F))-RA/2) 

3D X=C*CRA+2*RB): F=C1/LOGC2I*1/XI 

400 RA=INTCCRA/1000)*100+.5)/100: RB=INTC 
CRB/1020)*100+.5)/100:C=C/1E-O6 

418 D=D*190:PRINT:PRINT"” R1=";RA;"” K";C 
HRSC234) 

420 PRINT” R2=";RB;" K";CHR$SC234) 

430 LOCATE 1,22:PRINT”DE WAARDEN VERANDE 
REN P CJ/N)” 

HUD QOS=-INKEYS:IF Q$=”” THEN 440 

450 IF QS="N” OR QS="n” THEN 470 

450 IF Q$="J" OR Q5="j"” THEN 330 ELSE 44 
@ 

470 GOSUB 51@:GOSUB 1010 

480 PSETC31,183):PRINT#1,” DRUK EEN TOETS 
VOOR MENU” 

430 IF INKEYS=""” THEN 490 

500 CLOSE #1:SCREEN @: CLS: RUN 

510 SCREEN2: KEYOFF 

529 OPEN”GRP:” FOR OUTPUT AS#1 

530 PSETC119,74),4:PRINT#1,”IC” 

540 PSETC116,88),'t:PRINI#1, "555" 

55@ PSETC107,54),4:PRINT#1, ”4” 

560 PSETC143,54), 4: PRINT#1, "B" 


570 PSEIC95,63),4:PRINT#1,”7" 
580 PSEIC154,63), 4: PRINT#1, "3” 

530 PSETCS5,103), 4: PRINI#1,”6” 

600 PSEIC154,103),4:PRINI#1, "5” 

610 PSETC107,115),4:PRINI#1, "2” 

620 PSETC143,115),4:PRINI#I, "1" 

630 PSETC185,28),4:PRINI#1,”+ Vec” 
640 LINEC103,563)-C151,111),,B 

650 LINEC1Q2,62)-C152,112),,B 

650 LINEC135,112)-C135,135) 

670 LINEC135,31)-C135,52) 

680 LINEC119,31)-C119,652) 

630 LINEC119,112)-C119,135) 

700 LINEC73,319-C175,31):CIRCLEC179,31), 
EN: 

710 LINEC73,75)-(102,75) 

720 LINEC1S1,75)-175,75) 

730 LINEC179,71)-C173,79):LINE -C183,75) 
:LINE-C179,71):PAINTC180,75),15 

740 LINEC151,99)-C175,89) 

750 LINEC73,99)-C102, 39) 

760 LINEC73,50)-(73,79) 

770 LINEC79,95)-(79,116) 

780 LINEC77,50)-(B1,44),,B 

730 LINEC7S,44)-(73, 31) 

BO LINEC73,116)-C86,116) 

810 LINEC73,120)-C86,120) 

829 LINEC7S, 120)-C73,135) 

830 LINEC73,135)-(86,138),,BF 

840 LINEC129,135)-C141,138),,BF 

850 LINEC175,99)-C175,116) 

850 LINEC171,116)-C179,116) 

870 LINEC171,129)-C179, 120) 

880 LINEC175,120)-C175,135) 

830 LINEC171,135)-C179,138),,BF 

300 PSETC63, 116), 4: PRINI#1, "C” 

910 PSEIC18S, 116), 4:PRINI#1,”18 nF” 
329 RETURN 
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330 REM MONOSTABIELE WERKING 

940 LINEC79,79)-(79,95) 

950 LINEC119,135)-C113,151) 

350 LINEC79,151)-C119,151) 

970 LINEC71,147)-(71,155):LINE -C75,151) 
:LINE-C71,147) 

380 PSETC7,143),4:PRINI#1, "TRIGGER" 

9390 PSETC63, 47), 4: PRINT#1,"R" 


1000 
1010 
1020 
1030 
1040 
1050 
1050 


RETURN 

REM ASTABIELE WERKING 
LINEC77,79)-(B1,95),,B 
PSEIC63, 47), 4: PRINI#1, "R1” 
PSETC63,81), 4: PRINI#1, "R2” 
LINEC32,99)-(32,135):LINE-C119,135) 
RETURN 


BEREKENEN VAN LL EN C 
IN LUIDSPREKER-FILTERS 


Met dit hulpprogramma kunt U filters berekenen voor 
luidsprekersystemen. Dit kunnen zowel Tweeweg als 
Drieweg-systemen zijn. 


De steilheid van het filter kan worden ingesteld op 
&db/oktaaf of 12 db/oktaaf voor elk der beide systemen. 


Dit programma berekent aan de hand van de door U 
opgegeven overneemfrequenties de waarden van de Spoelen 
en Condensatoren. 


De gevonden waarden worden volgens de E24 tabel 
ingevuld. 


Zie de schermafdrukken van de diverse filters. 
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TERMINAL SOFTWARE >>> LS FILTERS 


KEUZENENL 
[ESC]. . STOPPEN MET PROGRAMMA 
[1J....TWEEWEG-FILTER 

[2]... DRIEWEG-FILTER 

[3]... VOOR GdBrokt 
[4]....VOOR 12dBraokt 


TWEEWEG- FILTER 42dBraokt 
DRUK [RETURN] VOOR VERVOLG 


TERMINAL SOFTWARE >>> LS FILTERS 


FILTER 12dBrokt 


OVERNEEMFREQUENTIE:? 1506 
IMPEDANTIE LUIDSPREKER: ? & 
Li= 1.20000 mH L2= 1.20646 mH 
Ci= 34,1600 UF C2= 39,1640 HF 


TOETS CRETURNI VOOR TEKENING 


TWEEWEG- FILTER 12dBrokt 


| 


LAAG HOOG 


TOETS CRETURNJ VOOR MENIJ 


PRIEWEG- FILTER 42dBrokt 


LAAG MIDDEN HOOG 


TOETS CRETURNIJ VOOR MENU 


99 


100 


10 REM *ennvenenvenennenernnennennenn 


“ BEREKENEN VAN L en C IN ** 
** __LUIDSPREKERSYSTEMEN … 
…anveossenassensensTn ….. 
20 DIM WC2S):GOSUB 1420 
30 SCREEN @:KEYOFF:WIDIK 40 
HO A$=-"":B5="";PI=3,1416 
50 TS=”TERMINAL SOFTWARE >>> LS FILTE 
RS” 
BO T1S=AS+" FILTER "+BS 
70 T3S-SIRINGSCHO, "—") 
80 PRINT IS:PRINIT3S 
99 LOCATE 10,5:PRINT”KEUZEMENU” 
100 LOCATE 10,7:PRINI”-------- 5 
118 LOCATE 5,3:PRINI”C1J....TWEEWEG-FILT 
ER” 
120 LOCATE 5,11:PRINI”C21...-DRIEWEG-FIL 
TER” 
130 LOCATE 5,22:PRINI"TOEIS UW KEUZE IN 
c1/2” 
140 QS-INKEYS:IF Q$="" THEN 140 
150 IF Q$<”1” OR Q$>"”2” THEN 140 
1650 IF QS=”1" THEN A$="TWEEWEG-":Q=1 
170 IF QS="2"” THEN AS="DRIEWEG-":Q=2 
180 LOCATE 5,22:PRINT SPACES(34) 
1390 LOCATE 5,13:PRINI”C3)....VOOR 6dB/ok 
tr 
200 LOCATE 5,15:PRINT”C4J....VOOR 12dB/o 
kt” 
210 LOCATE 5,22:PRINT"TOEIS UW KEUZE IN 
Ca/4D” 
220 QS-INKEYS:IF Q$="” THEN 220 
230 IF Q$<”3” OR QS>”4” THEN 220 
240 IF QS="3" THEN B5="6 dB/okt”:P=1 
250 IF Q$-"4"” THEN B5=”12dB/okt”:P=2 
260 T1S=AS+" FILTER "+BS 
270 LOCATE 5,20:PRINI T1S 
289 LOCATE 5,22:PRINT”DRUK CRETURNJ VOOR 
VERVOLG” 
230 QS-INKEYS:IF QS=”" THEN 290 


300 IF ASCCQS)<>13 THEN 290 

318 CLS 

320 PRINT T$:PRINT T3S:PRINT T1$:PRINT T 
35 

338 IF Q=2 THEN 480 

340 LOCATE 1,6: INPUT"OVERNEENFREQUENTIE: 
”;F@ 

350 LOCATE 1,8: INPUT”IMPEDANTIE LUIDSPRE 
KER: ”;2L 

350 IF P=1 THEN L1=Z2L/(2*PI*FQ)*1000! EL 
SE Li=CZ2L*SORC2))I/C2*PI*FQ)*1000! : LE=L1 
370 IF P=1 THEN C1=1/(2*PI*FO*ZL)*100000 
@! ELSE C1=1/(2*PI*FO*2L*SQRC2))*1 1) 
1:C2=C1 

380 X1=L1:GOSUB 1489: GOSUB 1570: X1=WLGI* 
F:LieX1 

398 X1=C1:GOSUB 1489:GOSUB 1578: X1=WCGI* 
F:C1=X1 

400 IF P=2 THEN C2=C1:L2@=L1 

H1@ LOCATE 5,10: PRINTUSING"Li=t#.##HHH Mm 
H"”;L1 

420 IF P=2 THEN LOCATE 20,10: PRINTUSING” 
La=## .HHIHH mH”;L2 

430 LOCATE S,12:PRINTUSING"C1=###. HEIN u 
F*;C1 

440 IF P=2 THEN LOCATE 20,12:PRINTUSING" 
Cm HURK UF”; C2 

450 LOCATE 5,22:PRINT"TOETS CRETURNJ VOO 
R TEKENING” 

450 QS=INKEYS:IF QS=""” THEN 460 

470 IF ASCCQS)=13 THEN GOSUB 73@:GOTO 30 
ELSE 460 

480 REM 12 DB/OKT 

430 LOCATE 1,6: INPUT"LAGE OVERNEEMFREQUE 
NTIE:*;F1 

500 LOCATE 1,8: INPUT”HOGE OVERNEEMFREQUE 
NTIE:”;F2 

518 LOCATE 1,19: INPUT"IMPEDANTIE LUIDSPR 
EKER: ”;2L 


101 


102 


520 IF P=1 


THEN L1=2L/(2*PI*F1)*1000! :L2 


=2L/C2*PI*F2)*1000! ELSE L1=CZ2L*SQRC2))/ 
C2*PI*F1)*1000! :L3=CZL*SORC2)I/C2*PI*F2) 
“1000! :L2=Ll:L4=L3 


58 IF Pel 


THEN C1=1/(2*PI*F1*2L)*100000 


@!:C2=1/(2*PI*F2*Z2L)*1000000! ELSE C1=1/ 
C2*PI*F1*ZL*SQRC2))*1000000! :CI=1/C2*PI* 
F2*ZL*SQRC2))*1000000! : C2=C1 : C4=CA 


540 IF P=1 


THEN X1=L1:GOSUB 1480: GOSUB 1 


570: X1=WCGI*F:L1=X1 


550 IF P=1 


THEN X1=L2:GOSUB 1480:GOSUB 1 


570: X1=WCGI*F:L2=X1 


5560 IF P=2 


THEN X1=L1:GOSUB 1480:GOSUB 1 


570:X1=WCGI*F:L1=X1l:Le=L1 


570 IF P=2 


THEN X1=L3:GOSUB 1489:GOSUB 1 


570: X1=WCGI*F:LI=X1:L4=L3 


580 IF P=1 


THEN X1=C1:GOSUB 1480:GOSUB 1 


570: X1=WCGI*F:C1=X1 


590 IF P=1 


THEN X1=C2:GOSUB 1480:GOSUB 1 


570: X1=WCGI*F: C2=X1 


500 IF P=2 


THEN X1=C1:GOSUB 1480:GOSUB 1 


570: X1=WCGI*F: C1=*X1:CE=C1 


610 IF P=2 


THEN X1=C3:GOSUB 1480:GOSUB 1 


570: X1=WCGI*F : CI=X1: CH=CI 


528 LOCATE 
LI 

53® LOCATE 
”Le 

540 IF P=2 
LI HAAK 
550 IF P=2 
Lim, HRH 
5658 LOCATE 
“Et 

578 LOCATE 
"Ce 

580 IF P=2 
C3=#HH HH 
5690 IF P=2 
Cte, HERH 


5,12: PRINTUSING"Li=##.#### mH 
5,13:PRINTUSING"L2=##. #### mH 


THEN LOCATE 20,12: PRINTUSING” 
mH”;L3 . 
THEN LOCATE 20,13: PRINTUSING” 
mH”;Lé 
5,15:PRINTUSING"C1=###. #8 uF 


5,16:PRINTUSING"C2=### HHR UF 


THEN LOCATE 20,15:PRINTUSING" 
uF”;C3 
THEN LOCATE 20,16: PRINTUSING” 
uaF”;C4 


700 LOCATE 5,22:PRINT"TOETS CRETURNI VOO 

R TEKENING” 

710 QS=INKEYS:IF QS="”” THEN 710 

728 IF ASCCQS)=13 THEN GOSUB 730:GOTO 30 

ELSE 710 

730 REN veenmnmmennnnennnnnnnnnnnennn 
… TEKENING TWEEWEG/DRIEWEG ** 


hed BASIS LAYOUT eht 
vavnonvanvnesnnnnnvenvnnnTvenenn 


740 SCREEN 2 

750 OPEN "GRP:” FOR OUTPUT AS#1 

760 PSEIC1S, 1), 4:PRINI#1,T1S 

770 LINEC1S,31)-C223, 31): 'BOVENL IJN 

780 LINEC1S,143)-(223,143) : 'ONDERLIJN 

790 LINEC223,127)-(223,143): 'ONDER LS 

800 LINEC143,127)-C143,143): 'ONDER LS 

B10 IF Q=2 THEN LINEC71,127)-C71,143): ’0 

NDER LS 

B29 REM vemenwvenenenennnen 

IDSPREKERS ** 

K ehaeheethaahsahnaheadheehchseheehsahsol 

830 LINEC215,111)-C231,127),,B 

B40 LINEC135,111)-C151,127),,B 

850 IF Q=2 THEN LINEC63,111)-(79,127),,B 

850 LINEC231,108)-C234,130), „BF 

870 LINEC1S1,108)-C154,130), „BF 

880 IF Q=2 THEN LINEC79,108)-(82,130),,B 

F 

830 LINEC234,111)-C239,106):LINE-(233,13 

2): LINE-C234,127) 

900 LINEC154,111)-C159,106):LINE-C159,13 

2):LINE-C154,127) 

910 IF Q=2 THEN LINECB2,1119-CB7,106):LI 

NE-C87,132):LINE-C82,127) 

gee REM *» esvennsnavenenn annen 
*« _ CONDENSATORS BOVEN LS ** 
K oedhnadhneaheehnaheedadinethnahnahadeheethehehseheehneheheheahsahsahsehsahsahsehshse 

930 LINEC215,47)-C231,47) 

940 LINEC215,51)-C231,51) 


950 IF Q=2 THEN LINEC135,#7)-C151,47) 
960 IF Q=2 THEN LINEC135,51)-C151,51) EL 
SE LINEC143,47)-(143, 58) 

370 LINEC223,31)-223,47) 

980 LINEC143,319-C143, 47) 

990 IF Q=2 THEN LINEC71,319=(71,58) 

1909 REmeennnannaanunanuuenuvnnnvennnen 
**L IJN CONDENSATOR-LS+SPOELEN** 
…annnnen aansunnunannnn.. 

1010 LINEC223,51)-223,111) 

1020 IF Q=2 THEN LINEC143,51)-C143,58) 

1039 LINEC143,58)-(147,62):LINE-(143,65) 

:LINE-C147,70) :LINE-C143,74): LINE-C147,7 

B) :LINE-C143,82):LINE-C147,86):LINE-(143 

‚30 

1040 IF Q=2 THEN LINEC71,58)-75,62): LIN 

E-(71,66):LINE-(75,70):LINE-(71,74):LINE 

=(75,78):LINE-C71,82):LINE-(75,85): LINE- 

€71,90) 

1050 LINEC143,90)-C143,111) 

1050 IF Q=2 THEN LINEC71,30)-(71,111) 

1970 REN »…eevsnovsvennanernvennvennnenn 

* TEKENING AANVULLEN had 
… VOOR 12 DB hd 
aananvannnnvannmnm....... 

1080 IF P=2 THEN LINEC223,95)-(191,95):L 

INE-C131,103) 

1030 IF P=2 THEN LINEC191,103)-(195,107) 

:LINE-C191,111):LINE-C1395,115):LINE-C191 

‚119):LINE-C1S5,123):LINE-C191,127):LINE 

=C195,131):LINE-C191,135) 

1100 IF P=2 THEN LINE-C191,143) 

1110 IF P=2 THEN LINEC1#3,95)-(103,95):L 

INE-(103,117):LINECS5, 117)-C111,117):LIN 

ECS5,121)-C111,121):LINEC103,121)-C103,1 

43) 

1120 IF Q=2 AND P=2 THEN LINEC71,35)-(33 

‚95):LINE-C39,117):LINEC31,117)-(47,117) 

:LINEC31,1219-C47,121):LINEC39, 1219-C39, 

143) : 


1130 IF Q=2 AND P=2 THEN LINEC123,95)-C1 
e3,103) 
1140 IF Q=2 AND P=2 THEN LINEC123,193)-C 
127,107):LINE-C123,111):LINE-C127,115):L 
INE-C123,119):LINE-C127,123):LINE-C123,1 
27):LINE-C127,131):LINE-C123,135) 
1150 IF Q=2 AND P=2 THEN LINE-C123,143) 
11659 REM *emevennnnennnennmnn 
* TEKST INVULLEN 
vannunsnnuunenenenen 
1170 PSETC207,151),4:PRINT#1, ”HOOG” 
1180 PSETC127,151),4:IF Q=1 THEN PRINT#1 
‚”LAAG” ELSE PRINT#1, "MIDDEN" 
1190 IF Q=2 THEN PSETCS5,151),4:PRINI#1, 
"LAAG" 
1200 IF Q=1 THEN PSETC155,71), 4: PRINT#1, 
„1 
1210 REM *eevvanvennssneunsen 
…… TWEEWEG 6/12DB ** 
asses …... 
1220 IF Q=1 AND P=1 THEN PSETC235,39),4: 
PRINT#1,”C1” 
1230 IF Q=1 AND P=2 THEN PSETC235,39),4: 
PRINT#1,”"C2” 
1240 IF Q=1 AND P=2 THEN PSETC105,103), 4 
:PRINT#1,”C1” 
1250 IF Q=1 AND P=2 THEN PSETC199,111),4 
:PRINT#1,”L2” 
1259 REM *…eunuanannunennnvn 
head 
head 
1270 IF Q=2 AND P=2 THEN PSETC189,111), 4 
:PRINT#1, ”"L4” 
1280 IF Q=2 AND P=1 THEN PSETC235,39), 4: 
PRINT#1,”C2” 
1230 IF Q=2 AND P=2 THEN PSETC105,103),4 
:PRINI#1, ”C3” 
1320 IF Q=2 AND P=2 THEN PSETC235,39), 4: 
PRINT#1, ”"C4” 


105 


106 


1310 IF Q=2 AND 
PRINI#1,”L2” 
1320 IF Q=2 AND 
PRINI#1,”L3” 
1330 IF Q=2 AND 
RINT#1,”L1” 
1340 IF Q=2 AND 
PRINI#1,”C1” 
1350 IF Q=2 AND 
PRINI#1, ”C2” 
1350 IF Q=2 AND 
RINT#1,”L1” 
1370 IF Q=2 AND 
PRINT#1,”C1” 
1380 IF Q=2 AND 
:PRINI#1,”L2” 


13390 PSETC31,183),+4: 


URNI VOOR MENU” 


P=-2 


P-2 


THEN PSEIC155,71), 4: 
THEN PSETC155,71),4: 
THEN PSEICBS5,71),4:P 
THEN PSEIC155,39), 4: 
THEN PSETC1S55,39), 4: 
THEN PSEICB5,71),4:P 
THEN PSETCHS5, 103), 4: 
THEN PSETC130,103), 4 


PRINT #1,”TOETS CRET 


1400 QS=INKEYS:IF QS="”” THEN 1400 
1410 IF ASCCQS)=13 THEN CLOSE#1:RETURN E 


LSE 1400 

1429 RESTORE 
1430 FOR N=1 TO 
1440 READ WCN) 
1450 NEXT N 
1460 RETURN 


25 


1470 DATA 100,110,120,130,150, 150, 180,20 

0,220,240,270,300, 330, 350, 390, 430, 470,51 

0,560,520,680,750,820,910, 1000 

1480 REM vennnnnmannman............... 
* __STANDAARDWAARDEN VOLGENS *« 

DE E24 REEKS . 


… 


1430 REM 


Kehdehehehaeheheehededheehdedeeheeheedehehsoheheeheehehedheehededhad 
wanvnnennnnnnnvevnennnnnnnn nn... 
* VERMENIGUULDIGINGSFACTOR *# 


hazel F_ BEREKENEN hekad 
vennsenvuuneuunvenvennnnnenven 


1500 IF X1>=100 THEN IF X1<100@ THEN F=1 
1510 IF X1>=1@ THEN IF X1<108 THEN F=,1 
1520 IF X1>=1 THEN IF X1<1@ THEN F=,@1 


1530 IF X1>=.1 THEN IF X1<1 THEN F=1E-03 

1540 IF X1>=.01 IHEN IF X1<.1 THEN F=1E- 

ou 

1550 IF X1>=1E-03 THEN IF X1<.01 THEN F= 

1E-05 

1560 RETURN 

1579 REM *v…vvsenvesesvsnssnnnvnnnn 
*«* _ DE STANDAARD VINDEN  ** 
** EN DEZE SAMEN MEIF _ * 
* MEENEMEN OM DE STANDAARD-** 
« _ WAARDE TE BEREKENEN. *® 
…anvacnsaunsaannsenmnnnn 

1580 FOR N=1 TO 24 

1590 IF X1/F>WCN) THEN IF X1/F<WCN+1) TH 

EN G=N: RETURN 

1500 NEXT N 
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FUNCTIETOETSEN INVULLEN 
PISK-GEBRUIKERS 


Dit kleine maar handige programma laat U de functietoet- 
sen veranderen voor een handiger en sneller gebruik 
de diskdrive. 


van 


Alle informatie die U nodig heeft om het op diskette te 
zetten vindt U in het programmaatje. 


10 REM 
20 REM 
30 REM 
HO REM 


50 KEY 


50 KEY 


70 KEY 


80 KEY 


90 KEY 
100 KEY B, "?FreC@)”"+CHRSC1I) 


110 KEY 9, 


be FUNCTIETOETSEN INVULLEN 
“ VOOR DISK-GEBRUIKERS 


venaneonnevenvanseevensvenensnn 


1,CHR$SCI2)+"Files”"+CHRSC1I) 


2,”load”+CHR$SC34) 


3,”save”+CHRSC3H) 


6, ”"PdskfF CO) ”"+CHRSC13) 


7,” .bas”+CHRSC13) 


CHRSC13) 


120 
130 
140 
150 
150 
170 
180 
138 
200 
218 
220 
238 
240 
250 


KEY 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


18, ”"list.”+CHRSC13) 
veeveveenveanvvanveeenennn 
* OM DE INHOUD VAN DE al 
* FUNCTIETOETSEN TE SAVEN * 
* GEBRUIKT U HET VOLGENDE * 
* COMMANDO : 

“BSAVE"KEYS”, axre7r,anraree 
vennenennsensneunwvvvenseen 
* OM DE FUNCTIETOETSEN „ 
* DIRECT TE LADEN VAN DISK* 
* GEBRUIKT U HET VOLGENDE * 
* COMMANDO : hal 
* BLOAD ”KEYS” ed 


wenunvsvvenvennnnveensnevnn 


Khehehdheheiehehel 


“PEreC”+CHRSCIHI+CHRSCIHI +") "+ 


SCREENDUME <RASIC) 


Met het volgende korte programmaatje kunt u een 
afbeelding op papier krijgen van de scherminhoud van 
SCREEN 2. U kunt dit programma als subroutine in een of 
ander grafisch programma opnemen, en het via het 
indrukken van een toets oproepen (bv. de SELECI-toets, 
ASCII-code 24). 


Ket programma is bedoeld als alternatief voor de 
machinetaalroutine elders in dit boek, voor zij die zich 
nog niet zo erg vertrouwd voelen met die taal, en liever 
eerst wat dieper met het MSX-Basic kennis willen maken. 


Bij het begin van het programmaatje staan een aantal 
printercodes, bedoeld om de printer in te stellen op een 
bepaalde regelafstand en om hem klaar te maken om 
grafische bytes te printen in plaats van karakters. 


Die codes kunnen per printer verschill helaas is de 
standaardisering daarin nog niet zo ver. Daarom leggen 
we vit wat de codes die gebruikt werden, betekenen : 


CHR$C27);"@" is bedoeld om de printer te initialiseren, 
dat wil zeggen dat alle eventueel voordien ingebrachte 
codes gewist worden; deze code geeft hetzelfde resultaat 
als de printer uit en terug aanzetten; 


CHRSC27);"A";CHRSCB) dient om de regelafstand op B/72 
inch in te stellen, zodat de afgedrukte puntjes 
vertikaal aan elkaar aansluiten; 


CHRS$C27); "K”;CHRSCO);CHRSCI) is de code om aan te geven 
dat de eerstvolgende 256 bytes grafische gegevens zijn, 
en niet als ASCIl-karakters geprint hoeven te worden. 
Het getal 256 berekenen we als volgt : eerste getal na 
de "K" + 256 * tweede getal na de "K", 


Ket programma werkt door van boven naar onderen, van 
links naar rechts, van elke beeldpunt de POINT-waarde te 
berekenen. Wanneer u met een voorgrondkleur x werkt, dan 
moet uv op regel 1190, voor het sluiten van de haak) 
de waarde van x vermelden, in plaats van 15. 


Omdat de POINT-Functie vrij traag werkt, zal de 
uitvoering van het programma ongeveer een kwartier in 
beslag nemen, mede afhankelijk van de snelheid van de 
printer waarmee u werkt. 


9000 
9010 
9g20 
9030 
9040 
9050 
3050 
3070 
3080 
5030 
9100 
3118 
9120 
3130 
3140 
9150 
9160 
3170 
5180 
9190 
3200 


REM *waenenneovvnaenenunenennaenn 


REN * SCREEN-DUMP IN BASIC dd 
REM * VOOR GEBRUIK MET SCREEN 2 * 
REM suannunnanensvnnnonenenennnnen 
REM *uuweuvenvervnennnnnnnnnn.nn... 
REM * VOORAF : 'MAXFILES=2’ hel 
REN teven 
OPEN ”LPT:” FOR OUTPUT AS #2 

REN *uvnenenevenannannennmnnnnnen 
REM * INITIALISEER DE PRINTER ei 
REM *ueuwuevnenvsennnsnsnannnnn... 
PRINT #2, CHR$SC27); "2"; 

REM vwsenvecncsennsnnann - 
REM * LINE FEED OP 8/72 INCH had 
REM *weauseenussvennennsennnnenwen 
PRINT #2, CHR$SC27) ; ”A”;CHRSCB) 

FOR Y=7 TO 1391 STEP 8 

REN *eunneuveevvvavvsensennnensann 
REM “ER KOMEN 256 GRAFISCHE BYTES* 
REM enenvenvvennunnenvennnenn....…. 


PRINT #2, CHR$C27); ”K”; CHRSCO) ; CH 


RSCID; 


ge10 
geeg 
9230 
9240 
geso 
9260 


FOR X=@ TO 255:A=@ 
FOR M=7 TO @ STEP -1 
A=A-C2°MI*CPOINTCX, Y-M)=15) 
NEXT M: PRINT #2, CHRSCA); 
NEXT X: PRINT #2, CHR$SC13) 
NEXT Y: RETURN 


LED! 


SCREEN DUMP PROGRAMMA 
VOOR MSX MET DISKDRIVE 


Dit programma is geheel in machinetaal geschreven en 
werkt voor de schermen O t/m 5. 

Het startadres is &HDBOO. dus om dit programma te laden 
neemt U binnen Uw eigen programma’s (bij voorkeur aan 
het begin van het programma) een aantal regels op die 
met dit programma te maken hebben. 


Bi voorbeeld: 


10 CLEAR 200,&HDBOO:REM 200 MOET U AANPASSEN AAN DE 
STRINGRUIMTE DIE U VOOR UW 


PROGRAMMA NODIG HEEFT. 
20 BLOAD "SCREEN" 


30 DEFUSR=&HDBOO: X=USR(O) 
40 DE REST VAN UW PROGRAMMA 


Met deze SCREENDUMP kunt U dan ten alle tijden tijdens 
het werken met Uw programma een Schermafdruk op papier 
maken door simpelweg op de ESC-toets te drukken. LET 
WEL: Binnen Uw eigen programma GEEN gebruik maken van de 
ESC-toets omdat deze gereserveerd is voor het 
SCREEN-DUMP programma. 
AANPASSEN 


Het programma zoals dat hier afgedrukt is, is geschre’ 
voor de STAR SG1O (EPSON-compatible). 

Aanpassen voor andere printers geschiedt vrij eenvoudig, 
door rekening te houden met de volgende Adressen: 


GRAPHIC-MODE 


Bij de meeste printers moeten we om een afdruk van het 
scherm te maken, de printer instellen in de zgn. 
GRAFISCHE MODE. Bij de meeste printers (EPSON-COMPATI- 
BLE) is dit ESC-"K" (CHR$(27)"K") gevolgd door het 
aantal grafische bytes dat per regel moet worden 
afgedrukt. 

Mocht Uw printer afwijken dan vult U hier de code in die 
er voor Uw printer staat. 


&HDB31 3E1B LD A,ESC ESCAPE code voor 
Uw printer,meestal 27, 


&HDB56 3E4B LD A,” 


Code voor Grafische mo- 
de in ons geval "K". 


Mocht Uw printer afwijkende codes gebruiken, dan veran- 
dert U de volgende adressen: 


&HDB32 met de ESC-code voor Uw printer 
met: POKE &HDB32,code 


&HDB37 met de code voor de Grafische-Mode 
met: POKE &HDB37,code 


LINEFEED instellen 


&HDB78 3E4B LD A‚"J" Code voor instellen 
linefeed. 


Bij de ste printers is dit de ESC"J" code macht Uw 
printer afwijken dan vult U hier de code in. 

Voor andere printers kan dit afwijken. De meest, 
gebruiken echter de ESC"J" code en dan hoeft U niets te 
veranderen. 


&HDB7D 3E18 LD A‚,24 24 is de code voor het in 
stellen van de LINEFEED. 
Deze moet 1/9 inch zijn. 


Bij de EPSON FX 80 is 24/216= 1/9 inch heeft U zo’n 
printer dan past U dit op adres &HDB7E aan. 
Voor de EPSON FX80 is dit: POKE &HDB7E,24 (decimaal) 

of: POKE &HDB7E,&HI8 (hexadecimaal) 


Verder zijn er geen aanpassingen nodig. Mochten er 
gebruikers zijn met sterk afwijkende printers, schrijf 
dan een brief met Uw problemen aan de auteur via de 
uitgeverij en dan zal ik proberen een oplossing voor U 
te vinden. 


Tik het gehele BASIC-programma in en RUN het. Mocht U 
fouten hebben gemaakt, dan worden die voor U opgespaord. 
Is alles foutloos ingelezen, dan krijgt U een eindscherm 
waarop alle informatie staat, die U nodig heeft om het 
*screendump” programma in machinetaal op schijf te 
zetten. 


TIP: SAVE ook dit BASIC programma. 
Bijv.r SAVE"SCREEN. BAS". 
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18 REM 


20 REM 


…... …annuussesennvens.n 
** SCREEN DUMP PROGRAMMA … 
* _UOOR ALLE SCHERMEN CO/3) ** 
… OP DE MSX-1 MET DISKDRIVE ** 
… EN MSX2 MET 1 DISKDRIVE head 


vuavauuveenn …… 
vvouenveuvvensvevvevvnnn …. 


.. HEX LOADER hed 
vevvuuveeeessssvunveveevsenvnn 


30 CLEAR 200,&HDBOO0 : ADR=&HDBOO : CHSUM=O : R 


=130 


4@ ON ERROR GOTO 3950: SCREEN @:WIDTH 4O:K 


EYOFF 


5@ READ IS,I 


5@ FOR 


N=@ TO 7 


70 AS=MIDSCIS, 2*N+1,2) : CHSUM=CHSUM+VAL C*” 


&H”+AS) 


89 PRINT R;”.”;:PRINIRIGHTS(”000"+HEXSCA 
DR+ND , 4) ; CHRSCID ; AS; CHRSCI) ; CHSUM 

90 POKE ADR+N,VALC”&H"+AS) 

100 NEXT N 


118 IF 


1<>CHSUM THEN PRINT"FOUT IN REGEL 


:”;R:END ELSE R=R+10:CHSUM=@: ADR=ADR+N 
128 GOTO S@ 

13@ DATA 3ACCFDFECSCOg2112,1213 
140 DATA DB22CDFD3ECD32CC, 1232 
158 DATA FDCSFE3AC@FSCSDS, 1613 
158 DATA ESED734FDDGEQO3A, 953 
178 DATA AFFCB721F0001128, 3940 
189 DATA @628062100011120,135 
19@ DATA @B3E1BCDSDDB3E4B, 799 
200 DATA CD8DDB7DCDEDDB7C, 1379 
21@ DATA CDSDDBO56OGCDS7DB, 11465 
e2® DATA DSCS21S100421108,836 
230 DATA OOCSESO5OB7EFEOB, B28 
24@ DATA 3FCB111910F77SCD,897 
250 DATA BDDBE1C12310EAC1, 1256 
2560 DATA D10478BB20073EOD, 842 
27@ DATA CDSDDB3E1BCDSDDB, 12139 
288 DATA 3E4+ACDSDDB3E1BCD, 992 
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230 
300 
318 
320 
330 
340 
350 
360 
370 
380 
330 
400 
410 
420 
430 
4D 
450 
460 
470 
480 
430 
500 
510 
520 
530 
540 
550 
550 
570 
580 
530 
502 
510 
520 
530 
540 
650 
550 
570 
580 
530 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


BDDBOC7SFE182037, 954 
E1D1C1F1CSCDASQG, 1439 
DOED7B4FDE18F1CS, 1331 
DSESFDES2151DD3E, 1321 
4035600233D20FA3A, 554 
AFFCB7FSCSC4+69DC, 1573 
C163260gesesessD, s5e 
5423e3F1F5e200113,710 
5813EBD6027350100, 585 
ggeAetFSESeAeers, 881 
3819200C2ACBF3E3, 840 
2AC7F3E61847180B, 844 
2ADSF3E32AD1F 307, 1226 
E6Q64F19CD4AGOEF , 730 
25002323230SEBFD, 658 
E1FD192ACSF31S0F, 1029 
OFOFEB1F4FO5003A, 434 
E6F3S7ESOFSFFIES, 1370 
3020082ABFF 30SCD, 731 
HA00S72151DD0608, 510 
FDESE3CD4A004FE1, 1232 
FO233AAFFCD60238, 1045 
15280CS1OEFO78FE, 782 
gse280BFD2B1807E3,610 
CD4AO05723E3C5SOE, 831 
@8CB11343520007A, 500 
3004OFOFOFOFEGOF , 357 
20017B772310EAC1, 753 
1OBEEIFDE1E1D1C1, 1536 
C378070707C50747,518 
73070707C5O74FAF, 501 
CD870057CD4AOOFE, 360 
DOCBDSCSCDBFDCC1, 1578 
F13CFE2029EACSS1, 1193 
eFFE27D04Fe23CD4A, 941 
@QSF7833SFSF5723, 738 
CD4A004723CD4A0D, 554 
CB7F280521200013, 455 
EB141SCOES@FC857, 1000 
3AEOF 3CB4FOF 3E08, 832 
3001872805CBB0CB, 753 


700 DATA 88876FC56O6BSD8BB, 1174 

718 DATA D879D5074F7D2508, 808 

72@ DATA 380831FE0S38023E, 532 

738 DATA @8677BD507SF7D2E, 721 

740 DATA GB380893FE03380e2, 540 

75@ DATA 3EOBGFFD21S10D0S, 982 

76@ DATA CB792048ESFDESCB, 1342 

770 DATA 7B2038FD7EG0B720, 805 

788 DATA 32CSDSES3AEGF30F, 1223 

790 DATA 3004CB39CB3BCBSB, 868 

899 DATA 2804CBSBCBE16826, 972 

B1@ DATA 004423232903ED4B, 512 

820 DATA 26FS03CD4A001CO7,510 

830 DATA 1020FC3003FD7200, 731 

840 DATA E1D1C1FDe231CeDe®, 1020 

850 DATA BEFDE1E1110800FD,1171 

85% DATA 19D10C2520ASCI00, 585 

870 DATA oo00EE0REOO0O0RR, a 

888 DATA O002000000000000, 0 

8390 DATA OVVO0PoREOO00EEE, 0 

300 DATA OOPLPPOPOOOORRAE, 0 

S1@ DATA oo0EE0aREO0000E, 0 

320 DATA @00EPO0LOOOOEE0OE, a 

930 DATA O00OVOPEOOOOEROR, 0 

940 DATA O00D000000000000, 9 

950 DATA @PDPEOPERPOOO0OR, 9 

9568 IF ERR=4 AND ERL=5@ THEN CLS: PRINT"D 

E DATA ZIJN FOUTLOOS INGELEZEN":RESUME 9 
70 

970 PRINI:PRINT:PRINT"”U KUNT NU HET MACH 
INETAALPROGRAMMA SAVEN MET DE OPDR 

ACHT: ” 

980 PRINTTABC10); ”"BSAVE"CHR$SC34) "SCREEN" 
CHRSC34) ”, &HDBOO, BHDDS2” 

930 PRINI:PRINT:PRINT”OM DE CODE WEER TE 
LADEN: ” 

1820 PRINT TABC10);”CLEAR 200,&HDB00” 
1018 PRINT TABC10);”DEFUSR=&HDB00" 

1828 PRINT"AANROEPEN MET: DUMMY=USRCOD" 
1030 LOCATE 1,22:PRINT"TOEIS CRETURNJ OM 
TE SAVEN” 
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1840 LOCATE @,18:PRINT"”BSAVE”"CHR$SC34) "SC 
REEN"CHRSC34) ”, &HDBOO, &HDDS2” 
1050 POKE 62428! ,18 


AUTOEXEC PROGRAMMA VOOR 
PROGRAMMA" S VAN DISK 


Met dit zeer handige programma kunt U op zeer eenvoudige 
wijze programma’s van DISK inlezen. 


De werkwijze: 


Dit programma start automatisch op, omdat U het als 
autoexecute programma op elke DISK zet waar meerdere 
programma’s opstaan. 

Door simpel de MSX met zo’n schijf op te starten, krijgt 
U direct op Uw scherm een overzicht van alle programma’s 
op deze schijf. Bovendien ziet U een ’cursor’ achter het 
eerste programma. Deze ’cursor” kunt U verplaatsen met 
behulp van de cursortoetsen van Uw MSX 
U kiest op deze manier het programma dat U wilt inlezen 
en door dan op RETURN te drukken, wordt het programma 
ingelezen en direct opgestart. 


Het beste werkt dit programma als er niet meer dan zo’n 
50 programm voor MSX1 of zo’n 90 programma’s voor 
MSX2 op een schijf staan. 


Het programma ontdekt zelf wel of U een MSX1 of een MSX2 
heeft en past daarop het scherm aan. 


Een handig hulpmiddel voor de inmiddels vele 
Disk-gebruikers. 


TIP: Als U AL UW PROGRAMMA’s ook nog laat eindigen met 
een aantal regels, die ervoor zorgen dat dit programma 
weer opnieuw wordt ingeladen met: RUN“AUTOEXEC", dan 
kunt U op eenvoudige wijze SNEL en EFFICIENT van 
programma’s wisselen. 
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18 REM veowvuuvsesveenvsnT...... 
* __DISK-PROGRAMMA-LADER  * 
…uvuuvansveuvuvsnensTnnnnn 

20 MAXFILES=1 

30 SCREEN @:COLOR 15,#,4:CLEAR 200:KEYOF 

F:CLS 

40 IF PEEKC45)=1 THEN WIDIK 78:XU=78 ELS 

E WIDTH 49:XU=33 

50 ON STOP GOSUB 320:STOP ON 

60 ON ERROR GOTO 340 

70 FR=DSKFCO)*2:PRINI” F IL ES : VRIJ 

E SECTOREN: ”;FR:PRINT:FILES 

BO X=12:Y=2:X0=12: YO=2 

90 YU-CSRLIN 

100 LOCATE XO,YO:PRINI” ” 

118 LOCATE X,Y:PRINT"<” 

120 IS=-INKEYS:IF IS="" THEN 120 

130 1-ASCCIS) :XO=X: YO=Y 

140 IF 1-13 THEN 200 

150 IF 1-30 AND Y>2 THEN Y=Y-1 

150 IF I=28 AND X<XU-13 THEN X=X+13 

170 IF 1=31 AND Y<YU THEN Y=Y+1 

180 IF I=239 AND X>12 THEN X=X-13 

130 GOTO 100 

eoa REM …ecesvssssennevsensvnrvvnnn 
hd CENTERJ INGEDRUKT . 
* PROGRAMMA LADEN EN RUNNEN * 
veaunsevavensvensnnnnnnnnn 

210 GOSUB 240 

220 LOCATE O,YU+3:PRINT NS 

230 RUN NS 


24Q REM vevsuuvsvvvvecsvuuor.n. 


hed PROGRAMMANAAM INLEZEN hed 


venssunenevsvsvensvennnnvnn.n 


250 NS= 

250 IF XU=78 THEN 420:REMark Onderscheid 
tussen MSX1 en MSX2 

270 FOR T=X-13 TO X-2 

280 H=UPEEKCT+Y*40+1) 

230 NS=N$+CHRSCH) 
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300 NEXT T 
318 RETURN 


327 REN *…enwenenvenvvenevannesvn.nn 


„ CTRL/STOP INGEDRUKT bi 


…ensvousacsvssvscenenT.nn. 
330 STOP ON:RETURN 89 
J4Q REN *vvenavevevevavevnnennvennn 

« ERRORS opvangen hd 

…uveeonceenevevveennTnnnn... 
350 IF ERR=7@ THEN LOCATE @,22:PRINT"WEL 
DE DISK-DRIVE KLAARZETIEN MET DISK! !*" 
350 IF ERR=5S THEN LOCATE @,22:PRINT"ER 
IS IETS FOUT MET DE DRIVE !!” 
370 FOR N=1 TO 1000:NEXT N:LOCATE @,22: 1 
F PEEKC45)=1 THEN PRINTSTRINGSCB@,"” ")EL 
SE PRINT STRINGSCHO,"” ”) 
380 LOCATE @,21:PRINT"TOETS CENTER) ALS 
ALLES IN ORDE IS CESCJ VOO 
R STOPPEN” 
390 QS=INKEYS:IF Q$="" THEN 390 
400 IF ASCCQS)=27 THEN END 
410 IF ASCCQS)=13 THEN RUN ELSE 390 
UPD REM ……vveevvvvvevvvvenvvvvvenvnnnn 

« PROGRAMMANAAM INLEZEN ka 

hed VOOR MSX2 ad 

………... .. ….. 


430 Ye=Yr2 
44O IF X>4D THEN Xe=X-4O:Y2=Y2+1:GOTO S1 


HUSQ REM *vevensveovvvevenvvevennennn 
* linkerhelft van het scherm* 
…esesanccnvveesveenvennvTen. 

450 FOR T=X-12 TO X-1 

470 H=UPEEKCT+Y2*49+1) 

4B@ NS=NS+CHRSCH) 

430 NEXT T 

500 RETURN 

518 REM …….. …svsssvvenven 
* rechterhelft van 't scherm* 
Kehnedhnehnhnehaheatechadhecheehsohehschehseheeheehahschehechaahsehshshehsed 


520 FOR T=X2-11 TO X2 
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530 H=UPEEKCT+Y2*40) 
540 NS=NS+CHRSCHD 
S5@ NEXT T 

550 RETURN 
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BARCODES PRINTEN 


Met dit programma kunt U op eenvoudige wijze Uw eigen 
BARCODES printen met behulp van een matrixprinter. 


U geeft het nummer dat in BARCODE moet worden geprint en 
dit programma maakt dan volgens de 2/5 code een strookje 
met BARCODE. 


Enige opmerkingen over het aansturen van de printer. Dit 
programma bevat stuurcodes voor de Star SG10. 

Voor ande, printers kan het nodig zijn om enkele 
wijzigingen door te voeren. 


In regel 565 : LPRINT CHR$(27)"A"CHRS (2) :LPRINT CHR$ (27) 
rs 
Hier staat de code om de printer in de 
Grafische mode te etten en om de 
LINEFEED van de printer in te stellen. 


In regel 590 : LPRINT CHR$(27)"L";CHR$(n) (n=aantal gra- 
fische bytes die per regel moeten worden 
afgedrukt). 


In regel 700 : Wordt de printer geRESET met de code 
LPRINT CHR$(27)"@". Dit wordt gedaan om 
uit de grafische printmode te geraken, 
zodat de tekst uit regel 710 kan worden 
geprint. 


Voor al deze stuurcodes geldt dat U het handboek van Uw 
eigen printer raadpleegt voor de juiste waarden. 

Als U Uw printer op de juiste wijze aanstuurt, zal dit 
programma probleemloos werken. 


Verder moet nog opgemerkt worden, dat er verschillende 
standaards zijn voor het afdrukken van BARCODES. 
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19 REM vesevsnuansveesvenseoncvensenvnn 


11 REM * BARCODE PROGRAMMA VOOR MSX « 
12 REN * volgens ds 2 of 5 code ® 
13 REM * envnenenvennennnn 

2@ SCREEN @:WIDTH 4@:KEYOFF:COLOR 15,4,4 
:CLS 

108 CLEAR 2080: DIM RC255),FSC59),GSC1O) 
118 FOR I=1 TO 59 

120 READ FS:NEXT 1 

138 FOR I=1 TO 
149 REM ………vann eecananen …ssveann 
141 REM * INVOEREN VAN EEN CODE EN hd 
142 REM * DAARNA AFDRUKKEN OP PRINTER * 
143 REM …essesvcvaceccccvovencencnnonnnn 
158 DE AFDRUKKEN” 

168 
178 LOCATE 1,21:PRINT"TOETS CRETURNJ VOO 
R START” 

18% QS=INKEYS:IF Q$="" THEN 180 

190 IF ASCCQ$)=13 THEN LOCATE 1,21:PRINT 
SPACE$S(38):C1=3:C2=4: ELSE 180 

288 LOCATE 1,10:PRINT"GEEF DE CODE IN CI 

JFERS” 

218 LOCATE 5,12: INPUT K$ 

220 23e"";S$e"" 

230 IF ASCCK$S)>=65 THEN GOSUB 530 

24@ PRINT:PRINT”DE 2 OF 5 CODE” 

258 FOR N=1 TO LENCK$)-1 STEP 2 

250 2$=25+GSCASCCMIDSCKS,N,1))-47): 55-55 
+GSCASCCMIDSCKS,N+1,1))-H7) 

270 NEXT N 

280 S$=55+" PyR$ePN 

230 FOR N=1 TO LENCZS) 

300 RS-RS+MIDSCZS,N,1)+MIDSCSS,N,1):NEXT 
N 

310 R$="0000"+RS+"100" 

328 FOR N=1 TO LENCRS) 

338 RCN)=VALCMIDSCRS,N,1)):NEXT N 

340 Z$=R$ 

358 A1=LENCZS):L=0: AG=D 


124 


360 FOR N=1 TO LENC2S):IF L=@ THEN L=1 E 
LSE L=@ 

370 AB=AE+RCNI*C2+CI: NEXT N 

382 GOSUB 565 

390 GOTO 150 

530 K=ASCCKS) : KS-RIGHTSCKS, LENCKS)-1): 25 
540 K1=ASCCRIGHTSCKS,1)): IF K1>=65 THEN 
KS=LEFTSCKS,LENCKS)-1) ELSE K1=K 

550 RETURN 

560 REM annennenssnneenvs nr... 
561 REM * PRINTER IN GRAFISCHE MODE * 
562 REM * INITIALISEREN (STAR 5610) * 
563 REM venencenaenvenns nennen... 
565 LPRINT CHRSC27)"A”CHRSC2):LPRINT CHR 
s(27)”e” 

570 FOR 0=1 TO 16 

585 At=FIXCA6/254) 

530 LPRINT CHR$SC27) ; ”L”;CHRSCCAB/254-A4) 
“254) ; CHRSCAY) ; 

600 L-0 

610 FOR J=1 TO Al 

620 IF L=@ THEN L=1 ELSE L=@ 

630 FOR I=1 TO RCJ)*C2+C1 

640 LPRINT CHRSC31*L); 

650 NEXT I 

650 NEXT J 

678 LPRINT” ” 

530 NEXT O 

700 LPRINT CHRSC27)"@” 

710 LPRINT CHRSC14D);"# ";KS;” #” 

720 RETURN 

730 END 

800 REM BINAIRE DATA 

819 DATA 0110001090, ,,,010101000, 90010101 
@,,,,,010010100,010001010, „0910000101, 110 
000100,010100010, 9001109100, 1001009001, 001 
100001, 1011000090, 2900110001, 1001100090 
B2® DATA @01110000, 9090100101, 1090100100, 9 
Q1100100,,,,,,,,190001001, 0091001001, 1010 
01000, 909011001,100011000, 0010114900, 0400 


126 


@1101,100201100, 0901001100, 9000011100 

83@ DATA 109090011,091000011, 1910900010, 
@201011,100010010, 0091010010, 9000000111, 10 
0000110,001000110, 0009010110, 1100009001, 01 
1000001, 111000000, 9100100901, 1109010000, 21 
1010200 

8'4@ DATA @0110,10001,01001,11000,00101,1 
@100,01100,00011,10010, 21010 


H# PODOBBEOODOE H 


HH POE 0O260 
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PRAKTIJKSOFTWARE VOOR MSX COMPUTERS 


Dit boek werd door de auteur geschreven, om de beginnereen 
aantal programma's te bieden, die gebruik maken van het MSX 
DISK-BASIC 


De verzameling bestaat uit een grote verscheidenheid aan 
programma's die alle gebruik maken van het MSX DISK- 
BASIC. Door de programma's in te toetsen leert de beginner 
hoe hij met gegevens moet omgaan om een praktisch te 
gebruiken programma moet maken. 


De programma's zijn eenvoudig van opzet, maar ze doen 
precies waarvoor ze geschreven zijn 


We noemen o.a. Kasboek, Bankboek, Voorraad. Dit zijn 
programma's die uitsluitend werken met een schijveneenheid. 


Bij de andere programma's zoals; Wiskunde-Hulp, Morse- 
Trainer, Filters kan men ook gebruik maken van een MSX 
Computer met Cassetterecorder. 


Het boek wordt afgesloten met een aantal praktische 
hulpprogramma's voor Disk-gebruikers, zoals: Funktietoet- 
sen voor Diskgebruikers, Auto exec. etc. 
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